use p; # mein package

my $p=p->new ();
$p->x();          # die funktion, sonst nichts
$p=undef;

for (;;) # damit ich mir noch den speicher anschaun kann
{  sleep (1);print ".";  }

--------p.pm--------------------------------------
package p;
        my $class = shift;
        my $self = {};
        bless $self, $class;
        return $self;
}


sub x()
{
    my $x;
    my $str = "asfsdafssssssaaaaaadfsaf";
    for (my $z=0;$z <1000000; $z++)
    {    $x.= $str;    }
    #tut nichts ausser speicher fressen
}