package Importer;

sub import {
    my $caller = caller;
    print $caller . "\n";
}

1;