Select Code to Download

use strict;
use warnings;
...
}

1;

use strict;
use warnings;
...

use override open => undef;
open(my $fh5, '<', $0);  # Calls CORE::open

>perl test.pl
Hi
Ho