Select Code to Download

#!/usr/bin/env perl -l

...
        print $out_fh File::Spec::->catpath($vol, $dirs, $file);
    } 
}

$ cat pm_1189607_input
old/path/to/some/file
...
one/more/new/path/to/some/file
path/to/keep/as/is/file
$