我可以在send_email例程中检查空消息还是在外面执行此操作？

我有一个使用Win32::OLE的查询.

my $servSet = $wmiObj->ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName LIKE 'ServiceNameHere%'","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

我在这里循环并构建一个列表$list

foreach my $serv (in $servSet) {
    next if $serv->{started}; 
    my $sname  = $serv->{name};
    my $sstate = $serv->{started};
    my $ssmode = $serv->{startmode};
    $list .= "Service: $sname  - $sstate - $ssmode\n";  
 }

我使用$list作为电子邮件的正文发送：

sub send_email {
...
..
$smtp->datasend($list);
..
.                        
}