Auto.pl #!/usr/bin/perl use strict; use warnings; my @command = ('perl', 'testprint.pl'); while(1){ my $ret = system @command; if ($ret != 0) { print "code[$ret]\n"; } sleep(0.1); } testprint.pl #!/usr/bin/perl use strict; use warnings; us…