From: Emil Williams Date: Thu, 8 May 2025 03:21:45 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=7fc1a01c90c5add0e6dfb8c7ca0e2d115c6bd6fc;p=emil-3chen.org.git -- --- diff --git a/perl/Triple.pm b/perl/Triple.pm index 69d9049..ad7a029 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -37,6 +37,15 @@ sub Triple::main { while($request->Accept() >= 0) { my $cgi = CGI->new; + + my $path = $ENV{'REQUEST_URI'} // '/'; + + print $cgi->header( + -Content_Type => 'text/html', + -charset => 'UTF-8', + ); + + print %static{$path}; } }