Select Code to Download

#!/usr/bin/perl5 -w
use strict;

...
modify_okay("some string", 1);

print "And this never prints\n";

for (@vals) {
   my $qualifier = return_okay2($_) ? "" : " not";
   print "$_ is$qualifier okay.\n";
}