#!C:/perl/bin/perl.exe -w
use strict;
use URI::Escape;
use HTML::Entities;
use CGI::Pretty qw/:no_debug/;

$CGI::Pretty::INDENT = "\t";
my $q = CGI->new;

my $table_data  = create_table_data();
my $source_code = read_source_code();

create_web_page( headers => [ 'Symbol', 'ASCII Value', 'URL encoded', 'HTML code' ],
                 data    => $table_data, 
                 code    => $source_code );
exit;

##</code><code>##

# add $y to $x
$x += $y;

# If $x is greater than three, give them some output,
# otherwise, we die

if ( $x > 3 ) {
    give_them_some_output( $x );
} else {
    die "This is a stupid program.";
}

##</code><code>##

&initialize_global_variables;
create_debugging_log( $debug_file_location );
grant_editor_priveleges( $user ) if $user eq "Admin";