#!/usr/bin/perl

use strict;
use warnings;

use Inline 'C';


eval 'print "Hello, world\n"';
printf "Sequence number: %d\n", gimmi ();
eval 'print "Hello, earthlings\n"';
printf "Sequence number: %d\n", gimmi ();

__END__
__C__
int gimmi () {
    return (PL_evalseq);
}