Select Code to Download

use CGI qw(param);

...
${$loc}{users} = "users";
}
}

foreach $ttl (@titlez){
#chop($ttl);
...
foreach $loctitle (@titleb){
$online++;
}

if($online < "2") {
$users = "user";
...
print $tmplf;
}
close(FILE);