root@raspberrypi:~# perl wlan_off.pl
Can't call method "attr" on an undefined value at wlan_off.pl line 29.
HTML::TreeBuilder=HASH(0xcafe00)root@raspberrypi:~#