I too am having trouble understanding your use of awk and Perl in the same program. Plus, this looks really weird:

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

That's just a comment following the print. Is that what you intended? Looks like a formatting error....

If you're trying to write the login name of any uid greater than 1000 found in the local /etc/passwd to the file /home/chancock/users, here's what you do:

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;
[download]

HTH