Select Code to Download

#!/usr/bin/perl -wT
my $paco = shift; # get first argument from @ARGV, or the command line
+.
unlink $paco;

Insecure dependency in unlink while running with -T switch at test.pl 
+line 3

#!/usr/bin/perl -wT

open(FILE,$file) || die "Could not open $file because: $!";
close(FILE) || die "Could not close $file because: $!";

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.