#!/usr/bin/perl -w
#This line will check the passwd file for any uid greater 1000
system("awk -F:'{if ($3 >1000) print $1}' /etc/passwd > /home/chancock/users");
open(FILE, 'users');
print <FILE>;#!/usr/bin/perl -w
close FILE;