|
ajout scripts utilisés
|
1 |
#!/usr/bin/perl |
| 2 |
use strict; |
|
| 3 |
use warnings; |
|
| 4 |
use HiPi::Energenie::Command; |
|
| 5 | ||
| 6 |
our $VERSION ='0.81'; |
|
| 7 | ||
| 8 |
my $result = HiPi::Energenie::Command->new->handle_command; |
|
| 9 | ||
| 10 |
print $result . qq(\n); |
|
| 11 | ||
| 12 |
1; |
|
| 13 | ||
| 14 |
__END__ |