#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::Netlink::Taskstats;
use Data::Dump qw( dump );
dump IO::Socket::Netlink::Taskstats->new->get_process_info_by_pid( @ARGV ? $ARGV[0] : $$ )
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::Netlink::Taskstats;
use Data::Dump qw( dump );
dump IO::Socket::Netlink::Taskstats->new->get_process_info_by_pid( @ARGV ? $ARGV[0] : $$ )