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

##</code><code>##

Insecure dependency in unlink while running with -T switch at test.pl line 3
##</code><code>##

#!/usr/bin/perl -wT
##</code><code>##

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

##</code><code>##

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