#!/usr/local/bin/perl
open (FILE1, ">file1");
$string = "this is a test";
select (FILE1);
&writeline;
select (STDOUT);
&writeline;
close (FILE1);
sub writeline {
$~ = "WRITELINE";
write;
}
format WRITELINE =
I am writing @<<<<< to my output files.
$string
.