use strict;
use File::Path;
my $bin = shift @ARGV;
mkpath "./examples/";
open OUT, "> ./examples/synopsis.cpr"
or die "Can't open./examples/synopsis.pl for output\n";
print OUT <<END;
#!$bin/cpr
int main(void) {
printf("Hello World, I'm running under Perl version %s\\n",
CPR_eval("use Config; \$Config{version}")
);
return 0;
}
END
close OUT;
chmod 0755, "./examples/synopsis.cpr";