#!/bin/perl
# File: ddemo  (debug demo)

$x=0;
@x = (red, green, blue);
print "continuing...\n";
$ret = &subber;  # Call subroutine
print $ret,"\n";
print $newvar,"\n";

if ($x) { 
   print '$x == 1',"\n" 
}
else { 
   print '$x == 0',"\n"
}

sub subber {
   print "subber line 1\n";
   $newvar = 99;
   print "leaving subber, \$newvar = $newvar\n";
}
