use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::MozEmbed;

Gtk2::MozEmbed -> set_profile_path($ENV{ HOME } . "/.wo",
                                     "wo");

my $window = Gtk2::Window -> new();
my $moz = Gtk2::MozEmbed -> new();

$window -> signal_connect(delete_event => sub {
Gtk2 -> main_quit;
return FALSE;
});

$window -> set_title("Wikipedia Offline");
$window -> set_default_size(600, 400);
$window -> add($moz);
$window -> show_all();

my $file = "jajal";
`7z x /home/mdamt/tmp/wikipedia-jv-html.7z -so jv/index.html > /tmp/$file`;
$moz -> load_url("/tmp/$file");
Gtk2 -> main;