Select Code to Download

use strict;
use warnings;
...
    return;
}
two(1,2,one(), 3);

$VAR1 = [1,2,undef,3];
$VAR1 = [1,2,3];

      sub read_file {
          my $file = shift;
...

          die "$filename not found";
      }

      sub read_file {
          my $file = shift;
...

          #Continue reading file...
      }