Select Code to Download

cp /dev/null file.txt
perl ./y1.pl
echo "hello world" > file.txt
perl ./y1.pl

use strict;
use warnings;
...
close($fh) or die "close() failed: $!";
printf( "Got a line: %s", $line // '<line-was-undef>' );