use strict;
use CGI;
use MIME::Base64;

my $q = new CGI;
my $mode = $q->param("mode");
if ($mode eq "form1") { &validateform1; }
elsif ...