Select Code to Download

ope my $fh,'<',$file or die "can't open file: $!";

...
use Cwd qw(abs_path);    ## module to get absolute pathname
...
        }
  }
 ...