Select Code to Download

package Flim;

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

package Flam;
use Flim;
...
sub new {
  Flim->new();
}

use Flam;

Flam->new();

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