$line = <FH>;
    $_ = $line;
    close FH;

    $field1 = m/^Clock/;                                 # Check for C
+lock at beginning of file

    printf "\n$file";
    if ( $field1 == "1"){