Select Code to Download

open(FOO, "+< $myfile") || die "Could not open $myfile $!\n";
@bar=<FOO>;
...
truncate(FOO, tell);
print FOO @bar;
close(FOO);

open(FOO, "$myfile") || die "Could not open $myfile $!\n";
@bar=<FOO>;
...
open(FOO, ">$myfile") || die "Could not open $myfile $!\n";
print FOO @bar;
close(FOO);