binmode STDOUT;
$background->Crop(geometry =>'100x100');
$background->Set(size=>'100x100');
$background->Set(compression=>'LZW');   
$background->Write("gif:-");