вопрос про perl и get

[canada14]

как на perl реализовать

<? include ("db.php");
if(isset($_GET['id']))
{
$id = $_GET['id'];
}
if(!isset($id))
{
$id=1;
}

$result2 = mysql_query("SELECT * FROM data WHERE id='$id'",$db);

if(!$result2)
{
echo "error";
exit(mysql_error());
}

if(mysql_num_rows($result2)>0)
{
$myrow2 = mysql_fetch_array($result2);
}

else

{
echo "error2";
exit();
}
?>

?

[Regent]

Ох ёмаё, у нас уже форум perl`a?