#!/perl

use Modul1;

my @mods = ();

for (0..100) {
push @mods, Modul1->new;
}