Select Code to Download

use strict;
use warnings;
...
$top->Button(-bitmap=>'arrowDn')->pack(-side=>'left');

MainLoop();