#!/usr/bin/perl

$a = 3; $b = 2;
if ($a >= $b) {
    print "$a is larger than $b\n";
}

$name1 = "abba";
$name2 = "zabba";
if ($name1 lt $name2) {
    print "$name1 alphabetically precedes $name2\n";
}

$counter = 1;
while ($counter < 11) {
    print "I can count to $counter\n";
    ++$counter;
}

print "Enter a value\n";
$user_value = <STDIN>;

print "Enter some text\n";
$line = <STDIN>;
chomp($line);

print "Enter some text\n";
chomp($line = <STDIN>);

while (<STDIN>) {
  # $_ = special default variable
  print "Your line is: $_";
}