#! /usr/bin/perl -wT

#use strict;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use vars qw($DBH $CGI);
use lib "./";
use tools;
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw();

$DBH = DBI->connect('DBI:mysql:youtrivia','xxx','xxx', {'RaiseError' => 1, 'AutoCommit' => 0}) or die "Couldn't connect: " . DBI->errstr;
my $CGI = CGI->new();

my $action = $CGI->param("submit");

print $CGI->header;
print $CGI->start_html(-title=>"Add User");
my $tools = tools->new();

$tools->display_add_user($CGI,$DBH);
print $CGI->end_html;
exit(0);


##</code><code>##

package tools;

use strict;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use Digest::MD5;
use vars qw($DBH $CGI);

sub new {
  my ($this) = shift;
  my $class = ref($this) || $this;
  my $self = {};
  bless ($self, $class);
  return $self;
}

sub display_add_user {
  my $cgi = shift;
  my $dbh = shift;
  print "<h1>Add user</h1>";
  print $cgi->CGI::start_multipart_form(-method=>'post',
               -action=>'./adduser.pl',
               -name=>'add_user');
  print "<table>";
  print "<tr><td>User</td>";
  print "<td>".$cgi->CGI::textfield(-name=>'username',-size=>'100')."</td></tr>";
  print "<tr><td>Password</td>";
  print "<td>".$cgi->CGI::password_field(-name=>'password',
                -size=>'50')."</td></tr>";
  print "</table>";
  print $cgi->CGI::submit(-name=>'submit',
           -value=>'AddUser');
  print $cgi->CGI::end_form;
}
1;


##</code><code>##

Can't locate object method "start_multipart_form" via package "tools" at /tools.pm line 155.