Select Code to Download

open my $fh, '<', $filename or die "Failed to open $filename - $!";

while (my $line = <$fh>) {
 # Do something with $line
}

my $count = @list;

  my $answer = <STDIN>;

use strict;
use warnings;