Select Code to Download

    return $inp or "";

$ perl -le'
sub prompt {
...
1
2

$ perl -le'
sub prompt {
...
1
2

while ( chomp(my $inpt = <STDIN>) != 0  ) {

while ( my $inpt = <STDIN>  ) {
    chomp $inpt;

            system("ifconfig wlan0 up") if ( (my $ifconf = `ifconfig`)
+ !~ /wlan0/ );

            system 'ifconfig wlan0 up' if `ifconfig` !~ /wlan0/;