Select Code to Download

#!/usr/bin/env perl

...
    print while <$fh>;
    say 'Position in file: ', tell $fh;
}

ken@titan ~/tmp/pm_11152251_file_rwa
$ ls -l *.txt
...

ken@titan ~/tmp/pm_11152251_file_rwa
$

ken@titan ~/tmp/pm_11152251_file_rwa
$ ./read_write_append.pl
...

ken@titan ~/tmp/pm_11152251_file_rwa
$

ken@titan ~/tmp/pm_11152251_file_rwa
$ ls -l *.txt
...

ken@titan ~/tmp/pm_11152251_file_rwa
$