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;