--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 69d9049feacbf8ca7421332044cb4aff4d17a12b..ad7a0296d726ee49625dc30538fc1386bf053791 100644 (file)
--- 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};
     }
 }