http://qs321.pair.com?node_id=360269

Public Scratchpad

Download, Select Code To D/L

---

  $smtp->datasend("Date: $now\n");
  $smtp->datasend("To: $self->{_to}\n");
  $smtp->datasend("CC: $self->{_cc}\n") if ( $self->{_cc} );
  $smtp->datasend( $self->{_bcc} )      if ( $self->{_bcc} );
  $smtp->datasend("From: $from\n");
  $smtp->datasend("X-contid: $self->{_cid}\n");
  $smtp->datasend("Subject: $self->{_subject}\n\n");
  $smtp->datasend("\n");
  $smtp->datasend("@body");
  $smtp->datasend("\n");
  my $rv = $smtp->dataend();
  $smtp->quit();
[download]

  my $q    = $self->query;
  my $file = $q->param('image');
  my $FH   = $q->upload('image');
  $file =~ m/^.*(\\|\/)(.*)/;
  my $dir  = "/home/f/img";
  open( OP, ">$dir/$file" ) or die "$!";
  chmod 0777, "$dir/$file";
  binmode OP;

  my $buffer;
  my $bytesread;
  while ( $bytesread = read( $FH, $buffer, 1024 ) ) {
    print OP $buffer;
  }
  close LOCAL;
[download]