use Image::Magick; 
$image_1 = Image::Magick->new;
$image_2 = Image::Magick->new;
$image_1 = Image::Magick->new(size=>'300x100');
$image_1->Read('xc:none');
$image_1->Annotate(
                    font=>'arial.ttf',
                    fill=>'rgba(50,50,50,0.8)',
	                  pointsize=>60, 
                    text=>'Test Text!',
                    geometry=>'+30+60'
                  );                  
$image_1->Blur('0x4');
$image_2 = Image::Magick->new(size=>'300x100');
$image_2->Read('xc:lightblue');
$image_2->Composite(image=>$image_1);
$image_2->Annotate(
                    font=>'arial.ttf',
                    fill=>'rgba(255,255,255,0.8)',
	                  pointsize=>60, 
                    text=>'Test Text!',
                    geometry=>'+30+60'
                  );
$image_2->Write('shadow.png');