perl -MO=Deparse -wle'
while (my $line = <>) {
print $line
}'
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
while (defined(my $line = <ARGV>)) {
    print $line;
}
-e syntax OK