#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;
use Gtk2 -init;
use Battery;

my $w=Battery->new();
$w->show;
Gtk2->main;