Select Code to Download

#!/usr/bin/perl -wl

...
print "j => $x" if $x = index "jeff", "j";
print "r => $x" if $x = rindex "jeff", "r";
system "ls" or warn "ls failed";

package TrueFalse;

...
sub boolean { TrueFalse->new(@_) }

1;