# Open local file for appending open(OUT,">> $config1) || $Error( "Can't open $config1" ); print OUT "$id|$datestamp|$description\n"; close (OUT); # Open remote file for appending open(OUT,">> $config2) || $Error( "Can't open $config2" ); print OUT "$id|$datestamp|$description\n"; close (OUT);