Select Code to Download

  $smtp->datasend("Date: $now\n");
  $smtp->datasend("To: $self->{_to}\n");
...
  $smtp->datasend("\n");
  my $rv = $smtp->dataend();
  $smtp->quit();

  my $q    = $self->query;
  my $file = $q->param('image');
...
    print OP $buffer;
  }
  close LOCAL;