#!/usr/bin/perl
use strict;
use warnings;

my $file = "/proc/$$/smaps";
open(my $f, '<', $file) or die "$file: $!";
my $smaps = do { local $/; <$f> };
close($f);
print "$smaps\n";