Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...

print "This script is: ".abs_path($0)."\n";
print "Working dir is: ".getcwd()."\n";

my $abs_filepath = abs_path("$module_dir/$relative_pilepath");