use Benchmark 'timethese';
use Inline C => <<'EoF';

int c_and(int num) {
    return(num & 1);
}

int c_mod(int num) {
    return(num % 2);
}

EoF

my $num = 5;

sub perl_mod { $_[0] % 2 }
sub perl_and { $_[0] & 1 }

timethese(10_000_000, {
    perl_mod => sub { perl_mod($num) },
    perl_and => sub { perl_and($num) },
    c_mod    => sub {    c_mod($num) },
    c_and    => sub {    c_and($num) },
});

__END__

     c_and:  7 wallclock secs ( 7.09 usr +  0.05 sys =  7.14 CPU) @ 1400560.22/s (n=10000000)
     c_mod:  8 wallclock secs ( 7.44 usr + -0.01 sys =  7.43 CPU) @ 1345895.02/s (n=10000000)
  perl_and: 17 wallclock secs (16.63 usr + -0.01 sys = 16.62 CPU) @ 601684.72/s (n=10000000)
  perl_mod: 16 wallclock secs (16.65 usr +  0.01 sys = 16.66 CPU) @ 600240.10/s (n=10000000)