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

##</code><code>##

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

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

# regex to extract certain text etc...

##</code><code>##

#!/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);

##</code><code>##

#!/usr/bin/perl