if ($attachments->{content_type} =~ m/jpe?g|png/i)
{
#Image Processing
 my $pic=Image::Magick->new();
 $pic->ReadImage($attachment->{pay_load});
 $pic->Resize(geometry=>"240x240");
 $pic->write($absolute_thumbnail_path);
 $pic->Resize(geometry=>"480x480");
 $pic->write($absolute_baseimage_path);
}
else
{
print "\n it's not a jpg or png\n";
}