1
2
3
4
5
6
7
8
9
10
11
12
13
14
15#!/usr/bin/perl 
use strict;
use warnings;
use HiPi::Energenie::Command;

our $VERSION ='0.81';

my $result = HiPi::Energenie::Command->new->handle_command;

print $result . qq(\n);

1;

__END__