sub blah {
  my $file = shift;
...
  my $retval = open(FHANDLE, $file);
...
}