Select Code to Download

use strict;
my $str = "foobar";
...
        croak("Undefined constant \"$_[1]\" called");
    }
}

str = foobar
str = barbar
Undefined constant "bar" called at /tmp/test.pl line 8