use Modern::Perl;
print "Hello World 1\n";
my $sub_ref = sub{ warn join( ' ', @_ ) . 
				" - this is really bad" };
open( STDOUT, ">>", $sub_ref ) or 
		die "open failed: " . $!;
print "Hello World 2";
warn ref $sub_ref;

##</code><code>##

Hello World 1
CODE at CodeTest.pl line 8.

##</code><code>##

Hello World 1
Hello World 2 - this is really bad at CodeTest.pl line 3
CODE at CodeTest.pl line 8.