$ENV{PERL_DPROF_OUT_FILE_NAME} = "foo${$}.out"; #### #!/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; #### #!/usr/bin/perl print 'In Child',$/ or die $!; sleep 10;