my $smtp = Net::SMTP->new; ... $smtp->data(); open BODY, '<', 'message.mime' or die "bleah: $!\n"; while( ) { chomp; $smtp->datasend( $_ ); } $smtp->dataend(); $smtp->quit();