Select Code to Download

$f->Button(-text => "FindSelectionNext", -command => [$t->{'rtext'} =>
+ "FindSelectionNext"])

######################################################################
+##
# get current selected text and search for the next occurrence
sub FindSelectionNext
...

 $w->FindNext('-forward', '-exact', '-case', $selected);
}