>perl -wMstrict -le
"my $filelist = 'xyzzy';
 open my $filehandle, '>', $filelist or die qq{opening '$filelist': $!};
 print $filehandle $_ for qw(foo bar baz);
 close $filehandle or die qq{closing '$filelist': $!};
"
>type xyzzy
foo
bar
baz