#!/usr/bin/perl

use CGI::Pretty qw/:standard/;
use Digest::MD5 qw(md5_hex);

print
	header (
		-type => 'text/html'
	),
	start_html (
		-title => 'md5sum',
		-style => {
			-code => '
				body {
					font-family: monospace;
				}
			'
		}
	)
;
	
	if (param ('plain')) {
		print md5_hex (param ('plain'));
	}

print
		start_form,
			textfield ('plain'),
			submit,
		end_form,
	end_html
;