$fHandle = CGI::->new();
$fCounter = 0;
while ($fCounter <= 4) {
    $fBuffer[$fCounter] = fHandle->param($fName[$fCounter]);
    $fCounter = $fCounter + 1;
}
##</code><code>##

$fHandle = CGI->new(); # note you don't need the colons
for (0..4) {
    $fBuffer[$_] = $fHandle->param($fName[$_]);
}
##</code><code>##

if ($fBuffer[0] ne "Proccess") {goto BadAccess}
if (length($fBuffer[1]) < 1) {goto BadAccess}
if (length($fBuffer[2]) < 1) {goto BadAccess}
if ($fBuffer[3] ne "thread2") {goto BadAccess}

##</code><code>##

BadAccess() if ( $Buffer[0] ne "Process"
    or length $fBuffer[1] < 1 
    or length $fBuffer[2] < 1
    or $fBuffer[3] ne "thread2" );