package Flim;

sub new {
  print "Caller: ".join("-",caller())."\n";
  print '$0: '.$0."\n";
}

##</code><code>##

package Flam;
use Flim;

sub new {
  Flim->new();
}

##</code><code>##

use Flam;

Flam->new();

##</code><code>##

Caller: Flam-/Flam.pm-3
$0: flimflam.pl