my *bighandle = openafile();
useafile(*bighandle);

sub openafile {
  local *handle;
  open handle, "file" or die;
  return *handle;
}

sub useafile {
  local *handle = shift;
  # do stuff with *handle
}