Joshua Colson [mailto:[EMAIL PROTECTED] suggested: > sub load_file { > my($file,$html) = shift; > $html = ''; > open(FILE, "$file") or die "Cannot open $file for reading: $!" > while(<FILE>) { $html .= $_; } > return $html; > }
Instead of "while(<FILE>) { $html .= $_; }", you
could use "$html = join("", <FILE>)".
HTH,
Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
