#!/usr/bin/perl -w
use strict;

my $foo = <<'BAR';
my $test = 1;
#ifdef UNDEF
    $test = 0;
#endif
print "\$test => $test\n";
BAR

my $bar = <<'BAZ';
use constant UNDEF => 0;
my $test = 1;
if (UNDEF) {
   $test = 0;
}
print "\$test => $test\n";
BAZ

use Benchmark;

=pod

this is still wrong
timethese (100000, {
              cpp => sub { eval "perl -P -e '$foo'";},
              prl => sub { eval "perl -e '$bar'";}
             }
	   );
=cut

timethese (1000, {
              cpp => sub { system "perl -P -e '$foo'";},
              prl => sub { system "perl -e '$bar'";}
             }
	   );