Select Code to Download

use strict;
use lib '.';
...
use Tk;
print "@INC\n";
.....

#!/usr/bin/perl
use warnings;
...
$btn->command( -label => "Exit", -command => sub { exit } );

MainLoop;