高速で時間を表示するスクリプト

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;
use POSIX 'strftime';


my $time = strftime( "%Y-%m-%d %H:%M:%S" , localtime );
print "$time\n";