useしたらpという関数が使えるようにしよう。 Mod1.pm package Mod1; use strict; use warnings; use base qw/Exporter/; use Data::Dumper; our @EXPORT = qw/p/; sub p {warn Dumper shift} 1; main.pl use Mod1; p 123; 実行 % perl main.pl $VAR1 = 123;useしたらuse strict/warningsしたことになるようにしよう。 Mod2.pm package Mod2; use strict; use warnings; sub import { strict->import; warnings->import; } 1; main.pl use Mod2; sub hoge{ my ($va, $vb)