Select Code to Download

package Login;
use base 'CGI::Application';
...
}

1;

package Login::DBI;
use base "Class::DBI::mysql";

__PACKAGE__->connection( "dbi:mysql:db", "db_user", "db_password" );

1;

package Login::User;
use base 'Login::DBI';
...
Login::User->columns(All => qw(uid login password));

1;

#!/usr/bin/perl -w
use Login;
my $app = Login->new();
$app->run();

CREATE TABLE user (
  uid int(10) unsigned NOT NULL auto_increment,
...
  password char(16) default NULL,
  PRIMARY KEY  (uid)
) TYPE=MyISAM;