package MyTest;
use strict;

BEGIN {
    use Exporter ();
    use vars qw(@ISA @EXPORT);
    @ISA = qw(Exporter);
    @EXPORT = qw(chomp);
}

sub chomp(@) {
    my $str = shift;
    CORE::chomp($str);
    return $str . "_this is a test";
}

1;