#aufruf
res_get(1);

#sub
sub res_get {
  my $self = shift;
  my $userid = shift;
  print "UID: $userid\n";
#machwas
}