Help for this page

Select Code to Download

Select or download this

print MAIL "encode_base64( read_file($attachment) )";
open(FILE, '<', $attachment) or die "Cannot open $attachment: $!";
print MAIL <FILE>;

Select or download this

open(FILE, '<', $attachment) or die "Cannot open $attachment: $!";
binmode FILE;
while (read(FILE, my $buf, 60*57)) {
  print MAIL encode_base64($buf);
}