open(FILE1,"</some/file/somewhere") || die "Could not open FILE1: $!\n";
open(FILE2,"</some/other/file") || die "Could not open FILE2: $!\n";


##</code><code>##

print FILE1 "something to be written to FILE1\n";