gistfile1.pl

package A;

use Bou;
use Modern::Perl;

sub truc {
  warn "truc";
  machin;
  warn "end";
}

1;
package Bou;

use Modern::Perl;
our (@ISA,@EXPORT);

BEGIN {
  require Exporter;
  @ISA = qw(Exporter);
  @EXPORT = qw /machin/;

}

sub machin {
  warn "machin";
}

1;
#!/bin/perl

use A;
use Modern::Perl;

A::truc;
Bou::machin;