use strict; use warnings; no warnings qw(uninitialized); #use FileHandle; #use IO::Tee; print "HTTP/1.0 200 OK\r\nContent-type: text/html\r\n\r\n"; #print "Content-type: text/html\r\n\r\n"; eval "use IO::Tee;"; print "Error=$@\n";