#! /usr/local/bin/perl

# 6.837
# Created by Justin Legakis (legakis@graphics.lcs.mit.edu) for Fall 1996

# Create list of email addresses of all students

$datapath="/pub/www/6.837/f96/data";


opendir(THISDIR, $datapath);
@allfiles = grep(!/^\.\.?|(.*)\.html.?|(.*)~/, readdir(THISDIR));
closedir(THISDIR);


foreach $file (@allfiles) {

  ($uid,$domain) = split('@', $file);

  print "$uid\n";
}