#! perl

package MyCarp;

use strict;
use warnings;
use Exporter 'import';

our @EXPORT = 'croak';

sub croak
{
    use Carp 'shortmess';
    $Carp::Verbose = 1;

    my @lines = split /\n/, shortmess @_;
    s/^\s+// for @lines;

    die $lines[1] . "\n\t" . $lines[2] . "\n";
}

1;