$Response->AddHeader('Cache-control' => 'no-cache');
# $Response->AddHeader('Expires' => 0);
$Response->{Expires} = -36288000;
$Response->AddHeader('Cache-control' => 'no-cache');
# $Response->AddHeader('Expires' => 0);
$Response->{Expires} = -36288000;
sub include {
( my $file = shift ) =~ s(^/)();
$Response->Include($file, @_);
sub include {
( my $file = shift ) =~ s(^/)();
$Response->Include($file, @_);