sub basics {
   my $funktion = shift; # funktionsreferenz auf &beispielfunktion
   my %params = (.. alles was ich öfters benötige wie zB Objektreferenzen, $dbh, Treiberkonfiguration usw)
   $funktion->(\%params);
}

sub beispielfunktion {
   my $args = shift;
   print "hallo ",$args->{'username'};
   print "du bist ",$args->{'DBH'}->selectrow_array("SELECT username FROM users WHERE id = '$args->{id}'");

   &weiter_gehts($args);
}