use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
use IPC::Open3;
use POSIX qw(:sys_wait_h strftime);
}
if (defined $part->bodyhandle and
$part->effective_type =~ /text/) {
- print STDERR $part->effective_type."\n";
$b_h = $part->bodyhandle;
last;
}