#!/usr/bin/perl

package Testmodul;
$wurst = 1;

sub new {
 my $Objekt = shift;
 my $Referenz = {};
 bless($Referenz,$Objekt);
 return($Referenz);
}

sub Modulprint {print "Hier meldet sich das Modul \"Modul.pm\"\n";}
sub get {return $wurst;}

1;