use Cwd 'cwd';
my $path_to_p2 = cwd() . '/p2.pl';