print <FILE>;#!/usr/bin/perl -w


##</code><code>##

open I, '/etc/passwd' or die "Can't open passwd: $!\n";
open F, '>/home/chancock/users' or die "Can't open users: $!\n";
my @passwd;
while (<I>) {
    @passwd = split /:/;
    print F $passwd[0], "\n" if $passwd[2] > 1000;
}
close I;
close F;