perl -E 'while(-f $ARGV[1]){ $now=(stat(_))[9]; system("@ARGV"), print "-" x 80, "\n" if ($now-$prev); $prev=$now; sleep 1 }' gcc a.c \&\& ./a.out