Select Code to Download

$r = $r->{$_} ||= {} for split m|/|, $tmp; #/
$dl{$name} ||= $r;

#!/usr/bin/perl
#
...

exit 0;