Help for this page

Select Code to Download

Select or download this

if ($data =~ /(?<![\w-])ON(?![\w-])/i) {

...

print "OFF\n";
}

Select or download this

sub chg_btn { 
$btn1->configure(-background => "green", -foreground => "black");
}