use CGI qw(header param); print header; foreach (param) { ($$_ = param($_)) =~ s/\r\n|\n/
/g; }