Select Code to Download

sub printSumpn{
  local($handle, file) = ('RPT', '/tmp/report.txt');
...
  local($handle, $file) =@_;
  # ...do some logging and sanity checking...
  open($handle, ">$file")}

 my $handle = *RPT;