#!/usr/bin/env perl -w

use strict;
my ($num, $string, $error);

$num = 54;
print $num . "!\n";

$string = "404 not found";
$error = $string + 100;
print "$error\n";
print "$string\n";

#--------------------------------------------------------------
#!/usr/bin/env perl -w

@foo = (1, 2, 4, 8, 16);
print "@foo - $#foo - ", @foo, " - " . @foo . "\n";

#---------------------------------------------------------------
#!/usr/bin/env perl -w

if (@bar){
    print "Bar evaluates to true\n";
} else {
    print "Bar evaluates to false\n";
}

@bar = ();

if (@bar){
    print "Bar evaluates to true\n";
} else {
    print "Bar evaluates to false\n";
}

@bar = (21, 32);

if (@bar){
    print "Bar evaluates to true\n";
} else {
    print "Bar evaluates to false\n";
}