{
  my $fh;
  open($fh,'>',$file);
  sub print_to_fh {
    print $fh @_;
  }
}