Select Code to Download

#!/usr/bin/perl

use strict;
...
        $_->pack(-text => "Button ".$j, -side=>\$packwith[$j++]);
    }
}