From 7fc1a01c90c5add0e6dfb8c7ca0e2d115c6bd6fc Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 7 May 2025 21:21:45 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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};
     }
 }
 
-- 
2.47.3