system("perl exit1.pl") || die "Failed to run exit1.pl\n";