#!/usr/bin/perl

use strict;
use warnings;

require "tmpinc\\foo.pl";
require "tmpinc\\bar.pl";

##</code><code>##

#!/usr/bin/perl

print "in foo.pl\n";

##</code><code>##

#!/usr/bin/perl

print "in bar.pl\n";

##</code><code>##

c:\pp -o pptest.exe -x -c pptest.pl

##</code><code>##

C:\>pptest.exe
in foo.pl
in bar.pl