#!/usr/bin/perl

use Carp qw(confess cluck);
use strict;

$SIG{__DIE__}  = \&confess;
$SIG{__WARN__} = \&cluck;

a();

sub a {
    print "in a\n";
    b("foo");
} 

sub b {
    warn "got wrong value $_[0]\n";
    c("bar");
} 

sub c {
    print "in c\n";
    die "dying because of $_[0]!\n";
} 

##</code><code>##

in a
got wrong value foo
 at foo.pl line 17
        main::b('foo') called at foo.pl line 13
        main::a() called at foo.pl line 9
in c
dying because of bar!
 at foo.pl line 23
        main::c('bar') called at foo.pl line 18
        main::b('foo') called at foo.pl line 13
        main::a() called at foo.pl line 9