...
my $lockfile = ".called";
unless( -e $lockfile ){
	sytem("perl script2.pl");
	open OUTFILE, ">$lockfile" or die "Couldn't create lock file: $!\n";
}