if(open(FOO,'<',$foo)) {
  ...
} else {
  print "open $foo: $!\n";
}