Select Code to Download

#!/usr/bin/perl
use warnings;
...
Tk::grid($q, '-', '-',    -padx => 10, -pady => 5);

Tk::MainLoop();