Select Code to Download

open my $handle, '<', $filename
    or die "Can't open '$filename' for reading: $!";
...
    ...
}
close $handle

my @list = qw(foo bar baz);
print Dumper \@list;
...
          'bar',
          'baz'
        ];