Skip to content

Instantly share code, notes, and snippets.

@kraih

kraih/hack.pl

Created March 30, 2011 00:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kraih/893640 to your computer and use it in GitHub Desktop.
Save kraih/893640 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hack.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::Server::Daemon;
get '/' => sub {
my $self = shift;
$self->render(text => 'Hello World!');
};
my $daemon =
Mojo::Server::Daemon->new(app => app, listen => ['http://*:8080']);
$daemon->prepare_ioloop;
$daemon->ioloop->one_tick while 1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment