Select Code to Download

unless(open FH,"$file"){
    open(LOG,">>$log") or die"Error writing to error-log file...how we
+ird: $!";
...
}else{
    proceed as normal....
}

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