#!/usr/bin/perl -w
############################
#
# Perl number & String example
# Author: Bill Kraynek
# Created 11/11/2006
#
# ##########################
$x=3**4;
$y = 33 / 16;
$z = 33 % 16;
print "33 / 16 is $y\n";
print "33 % 16 is $z\n"; 
print "3 ** 4 is $x\n";
$x += 3;
print "$x\n";
$name = "Bill";
$out = "Hi. My name is $name\n";
print $out;
$name = $name . " Kraynek";
print "Hi. My name is $name\n";