use Inline 'C';

# Example, skip a line of input from STDIN:

skip_line();

# Look!  The next line is read fine by Perl.

print scalar <STDIN>;

__END__
__C__

/* Read (and discard) until we find a newline */
/* NOTE: This will loop endlessly if it hits EOF
 *       before finding a newline. Caveat lector. */

void skip_line() {
    while( getchar() != '\n' ) { }
}