# Get fh
  sub get_fh {
   print "\nARRAY IS: ", join (' ', @_);
   my $class = shift;
   print "\nARRAY IS: ", join (' ', @_);
   my $file = shift or croak "specify file!\n";
   print "\nARRAY IS: ", join (' ', @_);
   my $option = shift or my $option = "dummy";
   $file = abs_path($file) unless ( $file eq "tmpfile" );
   print "\n   FILE IS: ", $file;
   print "\n   OPTION IS: ", $option;