TestXfhem/bin/sysal-stub.pl

   1 #!/usr/bin/perl -w
   2
   3 print "Content-type: text/html\n\n";
   4 print "<html><body>\n";
   5
   6
   7 open (OUT, ">/var/test/sysal-stub.out");
   8 while (my $line = <STDIN>) {
   9         print OUT "$line\n";
  10         print "$line\n";
  11 }
  12
  13 print "</body></html>\n";
  14