#! /usr/bin/perl -w
$fh = die "read that node more carefully!" # your to-do. load it from a file.
open FH, ">>$fh" || die $!;
while (<STDIN>){
    print FH $_;
}
close FH;
# now alter whatever's in $fh, and save it to disk.