Help for this page
use strict; use warnings; open (my $file, '+>', 'file.txt') or die "cannot open or append: $!"; print($file "test write on line number: ", sprintf("%2d", $_)) && prin +t ($file "\n") foreach (0..20);