Select Code to Download

...
open(MYINPUTFILE, "<$load_file"); # open for input
...
chomp $line;
my ($hash, $JPG) = ($line =~ m!/([^/]+)/([^/]+)$!) or die;
...