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

##</code><code>##

my $retval = sysopen(FHANDLE, $file, O_RDONLY);