use strict;
my $i=0;
while ($i==0)
{
      #das läuft gar nicht
 	open(HANDLE,"|test.pl");
      #das läuft nur beim ersten durchlauf, dann gar nicht mehr
	require "test.pl";
	print "WIEDER HIER\n";
	sleep(5);
}