Select Code to Download

#!C:/perl/bin/perl.exe -w
use strict;
...
                 data    => $table_data, 
                 code    => $source_code );
exit;

# add $y to $x
$x += $y;
...
} else {
    die "This is a stupid program.";
}

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