I guess:

if ( ...... ){
 &DoSomething();
}
else {
 &SomethingScrewedUp();
}
[download]

Best regards,
perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"