while (<$FH>) {
        sleep $time;
        print;
    }