Start App with a script

gistfile1.pl

# test.pl:
#!/usr/bin/env perl
use TestApp;
TestApp->start;


# TestApp.pm:
package TestApp;
use Mojo::Base 'Mojolicious';

sub startup {
  my $mojo = shift;

  my $r = $mojo->routes;
  $r->get('/')->to(
    cb => sub {
      shift->render_text('Hi!');
    });
};

1;