Select Code to Download

$img = shift @imgs;
$link = shift @urls;

...

push @imgs, $img;
push @urls, $link;

while ($c = <DAT>) {
    ($id,$image,$url)=split(/\|/,$c);

...
    }
}
close DAT;