remote dir is /perlmonks/scripts/cgi
.
..
1.color.cgi
-------cat uploaded file
#!/usr/bin/perl -wT
use 5.011;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);


# declare the colors hash:
my %colors = (	red => "#ff0000", green=> "#00ff00",
    blue => "#0000ff",	black => "#000000",
    white => "#ffffff" );

# print the html headers
print header;
print start_html("Colors");

foreach my $color (keys %colors) {
    print "<font color=\"$colors{$color}\">$color</font>\n";   
}
print end_html;

__END__