package userFunction; sub eine_sub { my $parm1 = shift; my $parm2 = shift; return $parm1 * $parm2; } sub kartoffel_subbe { return 'NIX DA!'; } 1;