my ($foo, $bar, $baz) = (undef,'',0);
my $deleteflag = $cgi->param('deleteflag');