# Modul1.pm
package Porjekt::Modul1;

use strict;

sub new
{
    my($package) = @_;
    my $this = bless({Var1 => 1, Var2 => 2}, $package);
    return $this;
}

1;