Select Code to Download

#!/usr/bin/perl -w

...

print "yeah!\n" if $thingy->is_thing();
print "boo!\n" unless $thingy->is_thing();