#!/usr/bin/env perl use strict; use warnings; use Dancer; get '/' => sub { return<

Dance Dance Revolution!

This is a self-contained Dancer application. EOF }; dance;