Select Code to Download

my ($foo, $bar, $baz, $quux, $blah);

my $foo;
my $bar;
my $baz;
my $quux;
my $blah;

my $foo = /aoeu/ ? 15 : 16;

...
open my $quux, '<', $file or die $!;

my $bytes_read = read $quux, my($blah), $length;