gistfile1.pl

sub route {
    my ($url) = @_;

    my @parts = split(m{/}, $url);

    return _error(400) unless '' eq shift @parts; # doesn't begin with /
    @parts = grep { '' ne $_ } @parts; # clean out any '//'
    my $sub = shift @parts; 
    $sub = 'root' if !defined($sub);
    return _error(404) if $sub =~ m/^_/;

    my $r = eval {
        no strict 'refs';
        print $q->header(-type => 'text/plain');
        my $tt_vars = $sub->(@parts);
        return $tt->process($sub, $tt_vars) or die $tt->error();
    };
    print $@ if $@;
}