Select Code to Download

% perl --version
    This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_6
+4-linux-thread-multi
% cat /etc/redhat-release 
    CentOS Linux release 7.3.1611 (Core)

% testmail.pl
    no data in this part at ./testmail.pp line 25.

#!/usr/bin/perl -w

...

    print $output;
}

./testmail.pp
bless( {
...
    'Attrs' => {},
    'Header' => []
  }, 'MIME::Lite' );

bless( {
    'SubAttrs' => {},
...
      ]
    ]
  }, 'MIME::Lite' );

bless( {
    'SubAttrs' => {
...
    ]
  }, 'MIME::Lite' );
no data in this part at ./testmail.pp line 21.

    if ( defined( $self->{Data} ) ) {
...
    elsif ( defined( $self->{Path} ) || defined( $self->{FH} ) ) {
...
    else { Carp::croak "no data in this part\n";

=item attach PART

...
    push @{ $self->{Parts} }, $part1;
    $part1;
}