#!/usr/bin/perl -w

use strict;

my $time="late";
print "Dude, it's " . $time . "\n";

$time="early";
print 'Dude, it\'s $time\n'; # Wrong!  Prints $time literallyy
print "Dude, it's $time\n";  # Yes!  $time is interpreted before output

my $x=1;
print "x=" . $x++
    . ", x is now=" . $x
    . "\n";

my $y="1 is fewer than $x";
print "y=$y\n";

# Not quite:
#my $z="hello, world\n";
# print $z[2]; print "\n";

# associative array:
my $first='Greg';
my $last='Newby';
my %status;
$status{$first . $last} = "faculty";
print $status{'GregNewby'} . "\n";

exit;




