Select Code to Download

use strict;
use warnings;
...
$ perl -l 635503.pl
/tmp/foo/1 -> /tmp/bar
/tmp/foo/2 -> /tmp/bar