package Greet;

sub import {
  my $caller = caller;
  *{$caller . '::greet'} = \&greet;
}

sub greet {
  print "Go away!\n";
}

1;