Select Code to Download

use Fcntl 'SEEK_SET';
while (<UNMODIFIED>) {
...
    print MODIFIED $_;
}
truncate MODIFIED, tell MODIFIED or die;