Select Code to Download

use Data::Dumper;
LINE: while (defined($_ = <ARGV>)) {
...
    }
    ;
}

use Data::Dumper;
while (defined($_ = <ARGV>)) {
...
    }
}
print Dumper(\%warnings);

use Data::Dumper;
use warnings;
...
    }
}
print Dumper(\%warnings);