#!perl
# p1.pl
use strict;
use FindBin;

my $p2 = $FindBin::Bin.'/p2.pl';
my $output = `$p2`;
print $output;