`attach`

        if ($opt_m) {
          open MSG, $opt_m
            or die "Couldn't open message file $opt_m: $!; aborting";
          @MSG = <MSG>;
          close MSG;
        } else {
          print STDERR "Enter message on standard input; use . to
            terminate.\n";
          while (<STDIN>) {
            last if $_ eq ".\n";
            push @MSG, $_;
          }
        }

Nothing exciting here