use strict;
use warnings;
use Sys::Statistics::Linux;
use Data::Dumper;

my $pid = $$;

my $lxs = Sys::Statistics::Linux->new(
   Processes => {
      init => 1,
      pids => [ $pid ]
   }
);

sleep 1;

my $stat = $lxs->get->{Processes}->{$pid};
print Dumper($stat);