#! /usr/bin/perl
use warnings;
use strict;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init'; 

my $window = Gtk2::Window->new('toplevel');
$window->signal_connect('delete_event' => sub { Gtk2->main_quit; });
$window->set_border_width(5);
$window->set_position('center_always');
my $vbox = &ret_vbox();
#add and show the vbox
$window->add($vbox);
$window->show();
Gtk2->main();

sub ret_vbox {
#create a vbox to pack the following widgets
   my $vbox = Gtk2::VBox->new(FALSE,5);
   #create a label that will demo pango markup
   my $label_w_markup = Gtk2::Label->new();

   $label_w_markup->set_markup("<span background = 'black' foreground= 'green' 
   size=\"40000\">Label with <i>markup</i></span>");

 $vbox->pack_end($label_w_markup,FALSE,FALSE,4);	
 $vbox->pack_end(Gtk2::HSeparator->new(),FALSE,FALSE,4);
 $vbox->show_all();
 return $vbox;
}