note
tachyon
<p>I never saw any great problem with this:
<code>
sub Unindent {
my $unindent = shift;
$unindent =~ s/^[ \t]+//gm;
return $unindent;
}
...
$message = Unindent <<" MESSAGE";
A fatal die was trapped by the $scriptname die nice routine:
Time: $datetime
List name: $list_name
Script name: $scriptname
Package: $package
File: $file
Line Number: $line
Error Message: $message
MESSAGE
print $message;
....
</code>
<p>cheers
<p>tachyon
</code>
91105
91105