I never saw any great problem with this:

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;

....
[download]

cheers

tachyon </code>