[root@an-a05n01 ~]# cat test
#!/usr/bin/perl

use strict;
use warnings;
use IO::Handle;

my $shell_call = "pmap $$ 2>&1 |";
open (my $file_handle, $shell_call) or die "ouch! $!\n";
while(<$file_handle>)
{
	print $_;
}
close $file_handle;

==============================

[root@an-a05n01 ~]# ./test
6982:   /usr/bin/perl ./test
0000000000400000      8K r-x--  /usr/bin/perl
0000000000601000      4K rw---  /usr/bin/perl
0000000000860000    792K rw---    [ anon ]
00007fe060900000     16K r-x--  /usr/lib64/perl5/auto/IO/IO.so
00007fe060904000   2048K -----  /usr/lib64/perl5/auto/IO/IO.so
00007fe060b04000      4K rw---  /usr/lib64/perl5/auto/IO/IO.so
00007fe060b05000  96836K r----  /usr/lib/locale/locale-archive
00007fe066996000      8K r-x--  /lib64/libfreebl3.so
00007fe066998000   2044K -----  /lib64/libfreebl3.so
00007fe066b97000      4K r----  /lib64/libfreebl3.so
00007fe066b98000      4K rw---  /lib64/libfreebl3.so
00007fe066b99000   1576K r-x--  /lib64/libc-2.12.so
00007fe066d23000   2048K -----  /lib64/libc-2.12.so
00007fe066f23000     16K r----  /lib64/libc-2.12.so
00007fe066f27000      4K rw---  /lib64/libc-2.12.so
00007fe066f28000     20K rw---    [ anon ]
00007fe066f2d000     92K r-x--  /lib64/libpthread-2.12.so
00007fe066f44000   2048K -----  /lib64/libpthread-2.12.so
00007fe067144000      4K r----  /lib64/libpthread-2.12.so
00007fe067145000      4K rw---  /lib64/libpthread-2.12.so
00007fe067146000     16K rw---    [ anon ]
00007fe06714a000      8K r-x--  /lib64/libutil-2.12.so
00007fe06714c000   2044K -----  /lib64/libutil-2.12.so
00007fe06734b000      4K r----  /lib64/libutil-2.12.so
00007fe06734c000      4K rw---  /lib64/libutil-2.12.so
00007fe06734d000     28K r-x--  /lib64/libcrypt-2.12.so
00007fe067354000   2048K -----  /lib64/libcrypt-2.12.so
00007fe067554000      4K r----  /lib64/libcrypt-2.12.so
00007fe067555000      4K rw---  /lib64/libcrypt-2.12.so
00007fe067556000    184K rw---    [ anon ]
00007fe067584000    524K r-x--  /lib64/libm-2.12.so
00007fe067607000   2044K -----  /lib64/libm-2.12.so
00007fe067806000      4K r----  /lib64/libm-2.12.so
00007fe067807000      4K rw---  /lib64/libm-2.12.so
00007fe067808000      8K r-x--  /lib64/libdl-2.12.so
00007fe06780a000   2048K -----  /lib64/libdl-2.12.so
00007fe067a0a000      4K r----  /lib64/libdl-2.12.so
00007fe067a0b000      4K rw---  /lib64/libdl-2.12.so
00007fe067a0c000     88K r-x--  /lib64/libnsl-2.12.so
00007fe067a22000   2044K -----  /lib64/libnsl-2.12.so
00007fe067c21000      4K r----  /lib64/libnsl-2.12.so
00007fe067c22000      4K rw---  /lib64/libnsl-2.12.so
00007fe067c23000      8K rw---    [ anon ]
00007fe067c25000     88K r-x--  /lib64/libresolv-2.12.so
00007fe067c3b000   2048K -----  /lib64/libresolv-2.12.so
00007fe067e3b000      4K r----  /lib64/libresolv-2.12.so
00007fe067e3c000      4K rw---  /lib64/libresolv-2.12.so
00007fe067e3d000      8K rw---    [ anon ]
00007fe067e3f000   1416K r-x--  /usr/lib64/perl5/CORE/libperl.so
00007fe067fa1000   2048K -----  /usr/lib64/perl5/CORE/libperl.so
00007fe0681a1000     36K rw---  /usr/lib64/perl5/CORE/libperl.so
00007fe0681aa000    128K r-x--  /lib64/ld-2.12.so
00007fe0683b9000     24K rw---    [ anon ]
00007fe0683c8000      4K rw---    [ anon ]
00007fe0683c9000      4K r----  /lib64/ld-2.12.so
00007fe0683ca000      4K rw---  /lib64/ld-2.12.so
00007fe0683cb000      4K rw---    [ anon ]
00007fff240da000     84K rw---    [ stack ]
00007fff2411f000      4K r-x--    [ anon ]
ffffffffff600000      4K r-x--    [ anon ]
 total           124624K