Select Code to Download

#!/usr/bin/perl
...

my $abs_path = File::Spec->rel2abs( $cur_dir ) ;
print $abs_path, "\n";