Select Code to Download

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

$VAR1 = [
          200,
...
            'shell' => '/bin/sh'
          }
        ];

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

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