#!/usr/athena/bin/perl

$msgnum = $ARGV[0];

open(MSG, "/mit/$ENV{'USER'}/Mail/inbox/$msgnum") || die("Not a message\n");

until(/^\n/){
    $_= (<MSG>);
}

while(<MSG>)
{
    print;
}