diff -ur gtml-3.5.4-orig/debian/changelog gtml-3.5.4/debian/changelog
--- gtml-3.5.4-orig/debian/changelog	2005-11-27 12:45:54.000000000 +0100
+++ gtml-3.5.4/debian/changelog	2005-11-27 12:57:33.000000000 +0100
@@ -1,3 +1,10 @@
+gtml (3.5.4-1.1) experimental; urgency=low
+
+  * Add new command "#includeliteral"; note that I don't know Perl -- it
+    works, but it's probably ugly.
+
+ -- Flavio Stanchina <flavio@stanchina.net>  Sun, 27 Nov 2005 12:57:21 +0100
+
 gtml (3.5.4-1) unstable; urgency=low
 
   * New upstream release and new upstream (http://sf.net/projects/gtml)
diff -ur gtml-3.5.4-orig/gtml gtml-3.5.4/gtml
--- gtml-3.5.4-orig/gtml	2004-10-29 15:43:23.000000000 +0200
+++ gtml-3.5.4/gtml	2005-11-27 12:52:34.000000000 +0100
@@ -1707,6 +1707,25 @@
 # ----------------------------------------------------------------------------
 # Process lines of a source file.
 
+sub ProcessLinesLiteral
+{
+    local ($iname) = @_;
+    local ($INFILE) = $filenum++;
+
+    if ( ! -r $iname )
+    {
+        &Error("`$iname' unreadable");
+        return;
+    }
+
+    open($INFILE, $iname);
+
+    while ( $_ = <$INFILE> )
+    {
+        print(OUTFILE $_);
+    }
+}
+
 sub ProcessLines
 {
     local ($iname) = @_;
@@ -1909,6 +1928,27 @@
         #
         # Included files.
         #
+        elsif ( /^#includeliteral/ )
+        {
+            chop;
+            if ( $compression ) 
+            { 
+                print(OUTFILE &CompressLines);
+            }
+
+            &Substitute();
+            s/^#includeliteral[ \t]*"//;
+            s/".*$//; #"
+            $file = $_;
+            $file = &ResolveIncludeFile($file);
+            $dependencies{$iname} .= "$file ";
+            if ( $file ne "" )
+            {
+# TODO #                &Notice("    --- $file\n");
+                &ProcessLinesLiteral($file);
+            }
+            next;
+        }
         elsif ( /^#include/ )
         {
             chop;