Help: Email problem with perl

[Shao, Chunning]

When we need to send result through email, we use sub-function like
this:

sub trap_die
{
        my @param = @_;
        $message = $param[0];
        $CommandString = "/bin/mailx -s \"$message\" cshao\@traffic.com
</dev/null";
        system ( $CommandString );
}

 trap_die ("$instance[$i].$owner.$table is chained\n");

But the message is only in the title, if it is long message, I can only
get part of it. how should I change the the trap_die function so that
the message will appear in the body, so that I can send more result?

Thanks