Select Code to Download

use strict;
use warnings;
...
unless ( $foo == $bar ) { print "TEST 1\n"}
unless ( $foo != $baz ) { print "TEST 2\n" }
else  { print "TEST 3\n"}