wethepeople.win/wethepeople.pl

#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my ($c)        = @_;
    my $hostHeader = $c->req->headers->host();

    if ($hostHeader =~ /www.wethepeople.win(|:[0-9]{1,5})/) {
        $c->render()
    }
    else {
        $c->redirect_to('http://www.wethepeople.win')
    }
} => 'index';

app->start();