my $newImage01 = $img->crop( left=>0  , right=>218, top=>0  , bottom=>150 ) || die "$message: ($!)\n"; 
                my $newImage02 = $img->crop( left=>218, right=>437, top=>0  , bottom=>150 ) || die "$message ($)): ($!)\n"; 
                my $newImage03 = $img->crop( left=>437, right=>654, top=>0  , bottom=>150 ) || die "$message ($_): ($!)\n"; 
                my $newImage04 = $img->crop( left=>0  , right=>218, top=>150, bottom=>300 ) || die "$message ($_): ($!)\n"; 
                my $newImage05 = $img->crop( left=>218, right=>437, top=>150, bottom=>300 ) || die "$message ($_): ($!)\n"; 
                my $newImage06 = $img->crop( left=>437, right=>654, top=>150, bottom=>300 ) || die "$message ($_): ($!)\n";