Select Code to Download

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

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

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

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

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