print   start_html( PAGE_TITLE ),
        h1( PAGE_TITLE ),
        start_form( -method=>"GET", -action=>$q->self_url ),
        input( {type=>"text",name=>"text",size=>40, value=>$text} ),
        input( {type=>"text",name=>"width",size=>5, value=>$width} ), " pixels wide",
        submit( -value=>"Muck!" ),
        end_form(),
        table( {border=>1,cellspacing=>0,cellpadding=>0},
                Tr( th( "Original" ), th( "Mucked" ) ),
                Tr(     td( img( {src=>$filename} ) ),
                        td( img( {src=>"mucked-$filename"} ) ),
                        ), # tr
                ), # table
        end_html();