Select Code to Download

open (FILE, ">>$filename") or die "trying";

print FILE "$movie\n";

push @movies, "$line"; # bad habit to get into
push @movies, $line;   # much better, what if $line was a reference?