Help for this page
if ( (condition1) && (!condition2) ) { }
#!/usr/bin/perl ... } else { print "Sorry =(\n"; }