package Perl::Test;

sub get_name{
  print "Hallo";
}

1;