Select Code to Download

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

    my $sec_label = $scrolledframe->Label(-text=>'SECONDARY')->pack;
}