$ perl dietest.pl 
Bla at dietest.pl line 16.
	main::broken_function(17) called at dietest.pl line 11
	main::do_something() called at dietest.pl line 7