#!/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;