Select Code to Download

#!/usr/bin/perl
use Cwd;
...
my $dir = getcwd;
my $abs_path = abs_path($file);
print $abs_path . "\n";