also, you use this nice short-ification:

   chomp(my $answer=<STDIN>);
[download]

in one place, but not in others. so (using suaveant's good suggestion for an additional subroutine to handle a repeated task), it would look like:

   chomp ( $in=<STDIN> );
[download]

since most of the time when you get user input you're going to want to remove the newline, i like doing it all on one line.