#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);
}

##</code><code>##

#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){
 print "$val\n"; # List available stock buttons
 if($val eq 'gtk-add' || $val eq 'gtk-cancel') {
  my $btn_stock = Gtk2::Button->new_from_stock($val);
  $vbox_stock->pack_start($btn_stock,FALSE,FALSE,4);
 }
}