my ($boolean) = @_;
if($boolean eq 1)
{
 #call script here
}
else
{
 #call HTML page here
}