Need script in perl

[Swetha reddy]

if (($x>=0) && ($x<=7)) // validating the xth column (0-7 values)
{
a++;
}
else
{
b++;
print $0 > "Error.txt" // redirects the failed rows
}
need to use the same code in perl ...in failed condition needs to disaply the row contents for teh failed one.

[H.Merijn Brand (procura]

# Remark 1. // as comment is bad. Very bad (TM)

if (($x >= 0) && ($x <= 7)) { # validating the xth column (0-7 values)
$a++;
}
else {
$b++;
open ERR, ">> Error.txt" or die "Error.txt: $!";
print ERR; # redirects the failed rows
close ERR;
}

Enjoy, Have FUN! H.Merijn