# Main.pl #!/usr/bin/perl -w use strict; use Projekt::Modul1; my $mod1 = Projekt::Modul1->new; sub TuWas { my($modul) = @_; }