#!/usr/bin/perl

# if, elsif, else, and unless (comparison operators)
print "if/else example:\n";

$perl_guru = 1;

#if($perl_guru)
if($perl_guru == 1)
{

  print "Larry Wall\n";

}
else
{

  print "Doug Miles\n";

}

print "if/elsif/else example:\n";

$perl_guru = 'High Guru';

if($perl_guru eq 'Grand High Guru')
{

  print "Larry Wall\n";

}
elsif($perl_guru eq 'High Guru')
{

  print "Randal Schwartz\n";

}
elsif($perl_guru eq 'Guru Wannabe')
{

  print "Doug Miles\n";

}
else
{

  print "Invalid Guru level\n";

}

print "unless example:\n";

unless($perl_guru eq 'Grand High Guru')
{

  print "Anybody but Larry Wall\n";

}