$ perl -MUnix::Passwd::File -MData::Dumper -Mstrict -wE 'say Dumper Unix::Passwd::File::get_user(user => "root")'

##</code><code>##

$VAR1 = [
          200,
          'OK',
          {
            'gecos' => 'System Administrator',
            'home' => '/var/root',
            'uid' => '0',
            'pass' => '*',
            'gid' => '0',
            'user' => 'root',
            'shell' => '/bin/sh'
          }
        ];

##</code><code>##

$ perl -MPath::Tiny -Mstrict -wE 'print for grep {/root/} path("/etc/passwd")->lines'

##</code><code>##

root:*:0:0:System Administrator:/var/root:/bin/sh
daemon:*:1:1:System Services:/var/root:/usr/bin/false
_cvmsroot:*:212:212:CVMS Root:/var/empty:/usr/bin/false