my $screen = $mw->Photo(-format => 'Window', -data => oct($c->id)); #$c is my canvas
my $pathname = '/home/pasha/dial.xpm';
my $image = Image::Magick->new(magick=>'XPM');
$image->Read(data=>$screen);
#$blurred->write($pathname, -format => 'JPG');
#$screen->write($pathname, -format => 'XPM');
$image->Blur(geometry=>"0x0.8");
$image->Write(filename=>'/home/pasha/screen.xpm');