#!/usr/bin/perl -w
use strict; use warnings;
use Carp qw( croak );

do_something();

sub do_something {
    croak "croaked!";
}
__END__
croaked! at test10.pl line 8
	main::do_something() called at test10.pl line 5


##</code><code>##

#!/usr/bin/perl -w
use strict; use warnings;
use Carp qw( croak );

do_something();

sub do_something {
    die "died!";
}
__END__
died! at test10.pl line 8.