Help for this page

Select Code to Download

Select or download this

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