#!/afs/athena/contrib/perl/perl

printf("\n---------------------------------------------------------\n");
printf("                  W e l c o m e   t o\n");
printf("                       /mit/edics\n");
printf("---------------------------------------------------------\n\n");

$user = $ENV{'USER'};
chdir("/mit/sbasu");