#!/usr/bin/perl -w
@ARGV = "/etc/passwd";
$\ = $/;
while(<>) {
print+(split(/:/))[0];
}