What about a "lock" file?

For example, in script1.pl:

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

Just a first approach, code untested.