Select Code to Download

#!/usr/bin/env perl

use v5.40;
...
sub broken_function($val) {
    die("Bla") unless($val == 10);
}

$ perl dietest.pl 
Bla at dietest.pl line 14.

#!/usr/bin/env perl

use v5.40;
...
sub broken_function($val) {
    croak("Bla") unless($val == 10);
}

$ 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

...
use Carp qw(croak);
...
    
    return $rows_inserted;
}