Select Code to Download

#!/usr/bin/perl
use strict;
...
my $label3 = $f4->Label(-bg => 'hotpink', -text => 'bottom')
                   ->pack();
MainLoop();

#!/usr/bin/perl
use Tk;
...
#$top->Label(-text => "Enter the scroll frame")->pack;
MainLoop;