Select Code to Download

sub set_power {
    my $self=shift;
...
    }
    print "\n";
}

sub power {
    my $self=shift;
...
        print "\n";
    }
}