$input = <>;

if ($input = 0)
{
    &routine0;
}
elsif ($input = 1)
{
    &routine1;
}
else
{
    exit;
}