#!/usr/bin/perl if ($#ARGV == 0) { $ARGV[1] = "michener\@csua.berkeley.edu"; } print <) { print; } print "."; print "\n"; print "QUIT"; print "\n";