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