print
    start_html('DB SPiller'),
    startform,
    'DB Filename: ',
    textfield(
        -name => 'data',
        -size => 10,
    ),
    br,
    submit('Dumb DB Contents'),
    hidden (
        -name => 'action',
        -value => 'spill',
    ),
    endform;