Select Code to Download

use File::Spec::Functions qw(rel2abs);

print "I am ", rel2abs($0), "\n";

use File::Spec::Functions qw(rel2abs splitpath catpath);

...
my $path = catpath( $vol, $dirs, undef );

print "I am ", $path, "\n";