my $back_pixbuf =  Gtk2::Gdk::Pixbuf->new_from_file($image);
    my ($pixmap,$mask) = $back_pixbuf->render_pixmap_and_mask(255);
    my $style = $window->get_style();
    $style=$style->copy();
    $style->bg_pixmap("normal",$pixmap);
    $window->set_style($style);