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__
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__