Adding button (control) to a window

   

use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;

MainLoop;

1.	Your first Perl/Tk program
2.	Pass subroutine to button and get called when clicking
3.	Pass value to a subroutine in button action
4.	Set Button action command
5.	Load and save text file
6.	Link a subroutine with a button action

Adding button (control) to a window : Button « GUI « Perl