P:\test>perl
open HANDLE, '>', 'junk' or die $!;
my $var1 = 'test';
my $var2 = 'test2';
print HANDLE <<FRED;
me
you
us
them
$var1 $var2
FRED

^Z

P:\test>type junk
me
you
us
them
test test2