Select Code to Download

open my $fh '>:via(Append)','/some/file';
print $fh "Lorem ipsum dolor sit amet ";
close $fh;

package PerlIO::via::Append;

...
        my ($self,$fh)=@_;
        print $fh "\n";
}