[Chicago-talk] Strange file creation

[Jonathan Rockway]

I prefer (at the advice of Dr. Conway ;)

print {$out} "\n";
print {$out} @info;

This makes it really easy to see that $out is a filehandle, not
something you want printed.  After all, "print $out" is perfectly valid
by itself, depending on the contents of $out.

Also, he would probably like:

my $NEWLINE = qq{\n};
print {$out} $something, $NEWLINE;

I admit I'm not going to be that extreme.

>      print $out "\n";
>      print $out @info;
>      close $out;

-- 
package JAPH;use Catalyst qw/-Debug/;($;=JAPH)->config(name => do {
$,.=reverse qw[Jonathan tsu rehton lre rekca Rockway][$_].[split //,
";$;"]->[$_].q; ;for 1..4;$,=~s;^.;;;$,});$;->setup;