$line = <FH>;
    close FH;

    printf "\n$file";
    if ( $line =~ m/^Clock/){