Select Code to Download

#!/usr/bin/perl
use Tk;
...

Tk::MainLoop;
__END__

#!/usr/bin/perl
use warnings;
...
    }
}
__END__