#! perl -slw
use Try qw[ \&callback ];

sub callback{
	BEGIN{ sub callback; }
	#do stuff
}