Select Code to Download

if (@ARGV){
    foreach my $path(@ARGV){
...
        $i++;
    }
} else {die ("No input files specified.\a\n");}

print STDERR ("Directory \'$$pref{changedir}\' aleady exists. Overwrit
+e?\n".
  "[Y(es)/N(o)/R(eselect destination)/C(lobber all duplicates)]".
...
my $answer = <STDIN>;
chomp ($answer);     # line 106 (see below)
print "$answer\n";   # for testing purposes

Use of uninitialized value in scalar chomp at script.pl line 106.