Select Code to Download

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

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