Select Code to Download

Select or download this

    # warn user (from perspective of caller)
    carp "string trimmed to 80 chars";

Select or download this

use strict;
use warnings;
...
    print shortmess("Shortmess Second");
    print longmess("Longmess Second");
}

Select or download this

Carp Second at d:/Users/lanx/pm/carp.pl line 4.
Cluck Second at d:/Users/lanx/pm/carp.pl line 16.
...
Shortmess Second at d:/Users/lanx/pm/carp.pl line 4.
Longmess Second at d:/Users/lanx/pm/carp.pl line 10.
    TEST::first(1) called at d:/Users/lanx/pm/carp.pl line 4

Select or download this

Shortmess Second at d:/Users/lanx/pm/carp.pl line 17.
    TEST::second(2) called at d:/Users/lanx/pm/carp.pl line 10
    TEST::first(1) called at d:/Users/lanx/pm/carp.pl line 4
Longmess Second at d:/Users/lanx/pm/carp.pl line 10.
    TEST::first(1) called at d:/Users/lanx/pm/carp.pl line 4