+++ /dev/null
-#!/usr/bin/perl -w
-
-print "Content-type: text/html\n\n";
-print "<html><body>\n";
-
-
-open (OUT, ">/var/test/sysal-stub.out");
-while (my $line = <STDIN>) {
- print OUT "$line\n";
- print "$line\n";
-}
-
-print "</body></html>\n";
-