package MyApp::Login::Form;

sub new
{
   ...
}

...

1;

package MyApp;

use base 'CGI::Application';

sub setup
{
   my $self = shift;

   $self->header_props(
      -type   => 'text/html',
      -charset   => 'utf-8',
   );

   $self->mode_param('action');
   $self->start_mode('login::form');
   $self->run_modes(
      'login::form' => ? ? ?,
   );
}
1;