if ($ct > 0)
{
     open(FIL, ">>$myfil") || die "Write to $myfil failed\n";

     print FIL "\n$ct ";
     print FIL ($ct > 1)? "are not available" : "is down";
     print FIL " at this time.\n";
     close (FIL);

     system("mailx -s 'Mail Header' myemail < $myfil");
}

##</code><code>##

print "\$foo is ";
print $foo? "true" : "false";
print "\n";

##</code><code>##

print "\$foo is ",($foo? "true" : "false"),"\n";

##</code><code>##

print "There ",(($num == 1)? "is" : "are")," $num camel",
       (($num == 1)? "" : "s")," for sale.\n";

##</code><code>##

printf("There %s $num camel%s for sale.\n",
       ($num == 1)? ("is","") : ("are","s"));