#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = CGI->new();
my $output = $q->b("Field1: ") . $q->textfield(-name=>'field1',-size=>20) .
    $q->p() .
    $q->b("MP3:") . $q->filefield(-name=>'mymp3', -size=>20) .
    $q->p() .
    $q->b("Field2:") . $q->textarea(-name=>'field2',-rows=>4,-cols=>20);

$output = $q->start_multipart_form() .
    $q->hidden(-name=>'rm',-value=>'save_mode') .
    $output .
    $q->br() .
    $q->submit(-label=>'Upload') .
    $q->end_form();

print $output;
exit;

__DATA__
<form method="post" action="/./html.pl" enctype="multipart/form-data">
<input type="hidden" name="rm" value="save_mode"  /><b>Field1: </b><input type="text" name="field1" tabindex="1"  size="20" /><p /><b>MP3:</b><input type="file" name="mymp3" tabindex="2"  size="20" /><p /><b>Field2:</b><textarea name="field2" tabindex="3" rows="4" cols="20"></textarea><br /><input type="submit" tabindex="4" name=".submit" value="Upload" /><div></div>
</form>