Select Code to Download

...
if (-e $path) {
...
       print "Error";
    }
}

if (-e $path) {
    if (-l $path) {
...
       print "Error";
    }
}

#!/opt/perl_5.8.7/bin/perl
use Benchmark qw(:all);
...
     nostatreuse   => $coderef1->()
 });