#create a vbox that will contain all the stock buttons
my $vbox_stock = Gtk2::VBox->new(FALSE,5);
foreach my $val(sort Gtk2::Stock->list_ids){
 my $btn_stock = Gtk2::Button->new_from_stock($val);
 $vbox_stock->pack_start($btn_stock,FALSE,FALSE,4);
}