{
    $x = (stat('preproc2.pl'))[9];
    $t = (localtime($x))[3];
    print $t,$/;

    sleep 5;
    redo if $count++ < 1;
}
p