TOP:
my $num = <STDIN>;
if( $num != 10 and $num != 0 ) #ok, a horrible condition
{
  goto TOP;
}

#rest of code