Select Code to Download

[root@old]# perl pc --ip=dsfa --device dsfasdf on
Use of uninitialized value $Power::Control::data in concatenation (.) 
+or string at Power/Control.pm line 63.
...
 The ip address is dsfa

 This is the command on

    #! /usr/bin/perl
    
...
    
    # ---- EXECUTION ----
    Power::Control->run(); # Launch command

    package Power::Control;
    use base qw( CLI::Framework );
...
        print "\n This is the command on\n";
    }
    1;