• gt/le comparison operators - I think you need to explain why one string would be greater than another (see below)
• rock/scissors/paper - how about a hash version? - you could also introduce tr/[A-Z]/[a-z]/ in this example, to pick up people typing with CAPSLOCK on.
• you cover tables, but don't mention CGI.pm - when you do, remember that Tr is a special case, and tell them why
• subs - if you did have warnings on, you'd see that @_[0] is better written as $_[0] :)
• subs - question for you. If you have a sub called test_sub, what's the difference between "test_sub", test_sub()" and "&test_sub" (not a trick question :)
• regex - "changes any" to "changes first" - add info about modifiers (g, i & s for now) and examples perhaps - eg s/\n/<P>/g; remember - <nobr>(g)lobal</nobr>, case <nobr>(i)nsensitive</nobr>, treat as a <nobr>(s)ingle</nobr> line
• matching - (/dog/) needs to be ($animal =~ /dog/)
• spliting =~ s/t/tt/;
• recommend students use strict; !! Learn it now before you pick up too many bad habits :)
• open (OUT,">"C:/temp/newnames.txt") => open (OUT,">C:/temp/newnames.txt")
• I don't get "Chomp". - you won't if you change $sex into $seatbelt when chomping.

gt example:

if ('four' gt 'five'){
    print "four is greater than five\n";
}
[download]

I would also look at fun stuff early on - eg, grab a web page and parse some information from it:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $page = get('http://www.google.com');

# regex to extract certain text etc...
[download]

Just a personal preference, but I prefer to use CGI in OO way, because for me the code is easier to read, eg:

#!/usr/bin/perl -w
use strict;
use CGI;

my $q = new CGI;

print $q->header,
      $q->start_html,
      $q->table(
        $q->Tr(
          $q->th(
            'This is a table header',
          ),
          $q->td(
            'This is a table cell',
          ),
        ),
      ),
      $q->end_html;
exit(0);
[download]

For me, $q is short for $query (but I don't just use it for forms these days...)

That way, you can 'hide' the details of namespaces and exporting a little longer. Or at least avoid issues when they use two modules that export subs with the same names to the main script (ack, I'm getting ham-handed in explaining this, sorry).

I see you have the SAMS book, but I'd suggest you also read "Learning Perl" (the 'Llama').

Something I don't see is an explanation of the line:

#!/usr/bin/perl
[download]

but perhaps I missed it...

Oh, and on the subject of first line, I think the -w is ignored under windows (someone, please correct me if I'm wrong here) and you should use "use warnings;" instead.

That's all for now. Perhaps when you have more up, you could ask the monastery to take a look - after all, the last thing we want is for a bunch of little brats coming here to come here and ask us questions when you get paid to do it^* ;-)

good luck

cLive ;-)

^* - err, that's meant to be humorous - sometimes I have to be explicit because people miss the wink...

--
seek(JOB,$$LA,0);