my %logfile;

sub import {
    my $class          = shift;
    $logfile{ +caller} = @_ ? shift : "/tmp/logfile.$$";
};