Select Code to Download

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

    $display_label = $phwin->Label(-text=>'SECONDARY')->pack;
}