package MyCarp;
use strict;
BEGIN { 
    unless($INC{'Carp.pm'}) {
        $INC{'Carp.pm'} = __FILE__;
    } elsif($INC{'Carp.pm'} ne __FILE__) {
        warn "You didn't load ", __FILE__, " before Carp ($INC{'Carp.pm'})!\n";
        $INC{'Carp.pm'} = __FILE__;
    }
}

require Exporter;
use vars qw(@EXPORT @EXPORT_OK @ISA);
@EXPORT = qw(confess croak carp);
@EXPORT_OK = qw(cluck verbose);
@ISA = qw(Exporter);

sub Carp::import
{
    __PACKAGE__->export_to_level(1, @_);
}

sub carp
{
    local $"=" ";
    print "Going to carp: @_\n";
}

sub confess
{
    local $"=" ";
    print "Going to confess: @_\n";
}

sub croak
{
    local $"=" ";
    print "Going to croak: @_\n";
}

sub cluck
{
    local $"=" ";
    print "Going to cluck: @_\n";
}