Select Code to Download

while (<>) {
}

while (defined($_ = <ARGV>)) {
    ();
}

  perl -MO=Deparse test.pl

#!/usr/bin/perl
use strict;
...
foreach my $m (@arr1) {
   print $m, "\n";
}