I highly reccomend using warnings(or -w) and strict

This works on my Linux box.

#!/usr/bin/perl -w
use strict ;
use Parallel::ForkManager ;
use MIME::Lite ;

my $scount  = 0 ;
my $xcount  = 0 ;
my $from    = "Me";
my $subject = "Test";
my $body    = "SOME test in here";
my @bccppl  = ( 1..10 ) ;

my $pm = new Parallel::ForkManager(4);

$pm->run_on_start(
    sub {
        my ( $pid, $bccperson ) =  @_ ;
        $scount++ ;
        print "Sending Msg: $scount  $bccperson\n" ;
    }
);

$pm->run_on_finish( sub { $xcount++; } );


foreach my $bccperson (@bccppl)
{
    $pm->start($bccperson, $scount ) and next;
    my $msg = MIME::Lite->new(
                From    => $from,
                To      => $bccperson,
                Subject => $subject,
                Type    => 'text',
                Data    => $body
        ) or print "MIME::Lite new error: $bccperson\n";

    MIME::Lite->send('smtp', '10.10.10.10', Timeout=>240);
    $msg->send() or  print "Couldn't send to: $bccperson\n";

    $pm->finish();
} #End of foreach $bccperson

$pm->wait_all_children;

print "Sent $xcount out of $scount msgs\n";
print "This Line prints Fine\n";
print "This line doesn't appear at all, no statements after the print 
+line above execute, how frustrating!!!\n";
[download]