use strict;
my ($bin) = @ARGV;

my $code = join '', <DATA>;
eval "print qq{$code}";

__END__
#include <unistd.h>
#include <errno.h>

extern int errno;

int main(int argc, char* argv[]) {
  execl("$bin/perl", 
	"$bin/perl",
	"$bin/cpr.pl",
	argv[argc - 1],
	NULL);
  printf("The CPR interpreter failed to exec $bin/perl\nThe system call 'execl' failed with error code %d\n", errno);
  return errno;
}