Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/cgi-bin/Japan/ls

Text File | 2017-09-21 | 227b | 14 lines

#!/usr/local/bin/perl

# non-buffered STDOUT
$| = 1;

$dir = $ENV{'QUERY_STRING'};
$mypath = $0;

print "Content-Type: text/plain\n\n" ;
print "path = $mypath\n";
print "directory $dir\n\n";
system("/bin/ls -l $dir") ;
exit 0;