Select Code to Download

>perl -E "open IN,'<','/etc/group'; open OUT,'>','/tmp/foo'; while (<I
+N>) { print OUT if /adm/; } close OUT; close IN;"
>cat /tmp/foo
sys:x:3:root,bin,adm
adm:x:4:root,adm,daemon
disk:x:6:root,adm
>