unless(open(LOG, "< $file")){
    print "Sorry could not open $file - $!","\n";
    exit;
}