Apache::File
if ($r->args !~ /^\w+\.?\w+$/) {
die "Invalid argument: ".$r->args;
}
Source for <xsp:expr>$r->args</xsp:expr>
Source for $r->args
# this oculd leak information. should check for 'demo files only'
my $filename = $r->lookup_uri($r->args)->filename;
my $file = Apache::File->new($filename);