Ok cool. One thing though. What is the syntax to have the script perform it's function when the button in the dialogbox is pressed? Right now as I have it the script performs the function whenever I press the button that calls the dialogbox and not after I enter a line number and pree "Go". Here is the code.

sub go_to {

   my $sw = $mw->DialogBox(-title => "Go To Line", -buttons => ["Go"])
+;
   $sw->add("Entry", -text => \$line_number)->pack();
   my $response = $sw->Show(&scroll_line);

   sub scroll_line {
      $line_number = $line_number - 1;
      my $calc = $line_number/$line_count;
      $t->yviewMoveto($calc);
      $line_number = $line_number + 1;
   }
}
[download]

I just need "$response" to be executed when the Go button is pressed.