Win8 Strawberry 5.8.9.5 (32)  Mon 04/18/2022  1:31:35
C:\@Work\Perl\monks
>perl -c -MO=Deparse,-p  -

use strict;
use warnings;

my $filename = 'junk.foo';
open my $fh, '<', $filename or die "opening '$filename': $!";

while (<$fh>) { print; }

my $line;
while ($line = <$fh>) { print $line; }

while (my $line = <$fh>) { print $line; }

close $fh or die "closing '$filename': $!";

^Z
use warnings;
use strict 'refs';
(my $filename = 'junk.foo');
(open(my $fh, '<', $filename) or die("opening '${filename}': $!"));
while (defined(($_ = <$fh>))) {
    print($_);
}
my($line);
while (defined(($line = <$fh>))) {
    print($line);
}
while (defined((my $line = <$fh>))) {
    do {
        print($line)
    };
}
(close($fh) or die("closing '${filename}': $!"));
- syntax OK

Win8 Strawberry 5.30.3.1 (64)  Mon 04/18/2022  1:33:08
C:\@Work\Perl\monks
>perl -c -MO=Deparse,-p -

use strict;
use warnings;

my $filename = 'junk.foo';
open my $fh, '<', $filename or die "opening '$filename': $!";

while (<$fh>) { print; }

my $line;
while ($line = <$fh>) { print $line; }

while (my $line = <$fh>) { print $line; }

close $fh or die "closing '$filename': $!";

^Z
use strict;
use warnings;
(my $filename = 'junk.foo');
(open(my $fh, '<', $filename) or die(("opening '${filename}': $!")));
while (defined(($_ = readline($fh)))) {
    print($_);
}
my($line);
while (defined(($line = readline($fh)))) {
    print($line);
}
while (defined((my $line = readline($fh)))) {
    do {
        print($line)
    };
}
(close($fh) or die(("closing '${filename}': $!")));
- syntax OK
[download]