Untitled

use strict;
use Plack::Builder;

my $body;
$body .= qq(<script src="/js/hello_) . rand(1) . qq(.js"></script>\n) for 1..10;
$body .= qq(<link rel="stylesheet" href="/css/hello_) . rand(1) . qq(.css"/>\n) for 1..10;
$body .= qq(<body onload="alert('page is loaded')">Hello</body>);

my $page = sub {
    return [ 200, [ 'Content-Type' => 'text/html' ], [ $body ] ];
};

my $js = sub {
    my $env = shift;
    return [ 200, [ 'Content-Type' => 'text/html' ], [ qq(var t="$env->{PATH_INFO}";) ] ];
};

my $css = sub {
    return [ 200, [ 'Content-Type' => 'text/html' ], [ "body { font-size: 100px }" ] ];
};

builder {
    mount "/js"  => $js;
    mount "/css" => $css;
    mount "/" => $page;
};