$ENV{PERL_DPROF_OUT_FILE_NAME} = "foo${$}.out";


##</code><code>##

#!/usr/bin/perl  -d:DProf

{
    local $ENV{PERL_DPROF_OUT_FILE_NAME} = "foo.out";
    my $cpid = open my $foo, '|-', '/usr/bin/perl -d:DProf profc.pl' or die $!;
}

print 'In Parent', $/ or die $!;
sleep 10;

##</code><code>##

#!/usr/bin/perl

print 'In Child',$/ or die $!;
sleep 10;