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