Select Code to Download

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);