Select Code to Download

my $dir = 'Links';
if (-d $dir) {
...
else {
   mkdir $dir or die "can't mkdir: $!";
}

open FILEIN, "urls.txt" or die "Could not open file $!";

...
   chomp;
   ...
}

use strict;
use warnings;
...
   my($uri, $orig_uri) = @_;  
   push @FOUND,$orig_uri;
}