Please see Writeup Formatting Tips (especially the part about using <CODE> tags around your code).

Did you paste this code exactly as it exists on your machine? There are a couple of syntax errors:

while () {
[download]

should be:

while (<USERS>) {
[download]

Also, a shortcut for using temp variables (or undefs), instead of

  $j, $j, $j, $j, $j, $month, $date, $time, $uname) = split;
[download]

(which needs a leading parenthesis, btw), use an array slice to extract only the values you need:

  ($month, $date, $time, $uname) = (split)[5..8];
[download]

--sacked