Select Code to Download

seek $fh, 0, 0;

open(my $fh, '>', 'file.txt') or die "Cannot open file.txt for writing
+.\n";