use Symbol;
sub printSumpn{
  my($handle, $file) = (gensym(), '/tmp/report.txt');