if (open FH, $log) {
....send tail of log file...
} else {
....send "server is down. Perl say $!"
}

##</code><code>##

 
blah() || do{ $scalar = 'blah'; more_stuff() }