unless(open FH,"$file"){
    open(LOG,">>$log") or die"Error writing to error-log file...how weird: $!";
    print "Error at ",__LINE__," here's what happened: $!";
    close LOG;
}else{
    proceed as normal....
}
##</code><code>##

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