c:\@Work\Perl\monks>perl -wMstrict -MO=Deparse,-p -le
"my $filename = 'foo';
 open my $fh, '<', $filename or die qq{opening '$filename': $!};
 ;;
 while (my $line = <$fh>) {
   print $line;
   }
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
(my $filename = 'foo');
(open(my $fh, '<', $filename) or die("opening '${filename}': $!"));
while (defined((my $line = <$fh>))) {
    do {
        print($line)
    };
}
-e syntax OK