my $LOCKFILE = 'script1.lock';
if (!-e $LOCKFILE) {
   open FH, ">$LOCKFILE" or die $!;
   close FH;
   system("perl script2.pl");
}