open (FILE,"<","/etc/doesnotexist") || fatal_error("can't open /etc/doesnotexist, sorry");

sub fatal_error {
 print STDERR "ERROR: ", @_," ",__LINE__;  
 usage();
 exit 1;
}