Select Code to Download

#!/usr/bin/perl -w
use strict;
...
'on'
''
300

foreach (@tokens)
{
...
               #for "defined-ness" instead of truthful-ness.
   print "$_\n";
}

__DATA__
3,  0, 0, 3,  2, 'on', 'host_description - Hard Drive Space',      '',
+ NULL, '', 'on', '', 300, ''
...
8,  0, 0, 8,  2, 'on', 'host_description - Signal Level',          '',
+ NULL, '', 'on', '', 300, ''
9,  0, 0, 9,  2, 'on', 'host_description - Wireless Transmits',    '',
+ NULL, '', 'on', '', 300, ''
10, 0, 0, 10, 2, 'on', 'host_description - Wireless Re-Transmits', '',
+ NULL, '', 'on', '', 300, ''

3,  0, 0, 3,  2, 'on', 
4,  0, 0, 4,  1, '',   # 4,  0, 0, 4,  1, 'off'
...
8,  0, 0, 8,  2, 'on', 
9,  0, 0, 9,  2, 'on', 
10, 0, 0, 10, 2, 'on',