use Carp qw(croak); sub foo { croak; } foo();