script/battery


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl 
use strict;
use warnings;
use 5.016;
use Gtk2 -init;
use Battery;
 
my $w=Battery->new();
$w->show;
Gtk2->main;