#!/usr/bin/perl -ln
BEGIN{ @ARGV = "/etc/passwd"; }
print+(split(/:/))[0]