Mod3.pm

package Mod3;
use strict;
use warnings;

use base qw/Exporter/;
use Data::Dumper;

sub import {
    strict->import;
    warnings->import;

    goto &Exporter::import;
}

our @EXPORT = qw/p/;

sub p {warn Dumper shift}

1;