# Datei foo.pm
*foo = sub{
   my $self = shift;
};