Select Code to Download

#!/usr/local/bin/perl -w

...
my $path = "${dir}${sub_dir}${file}";

print "$path\n";