Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
}

print $found ? "I found" : "I didn't find", " element $tofind\n";