#!perl -w

 use X::Osd ':all';
  my $osd = X::Osd->new(1);
#      $osd->set_font("-monotype-arial-medium-r-normal-*-*-360-*-*-p-*-iso8859-1");
#$osd->set_font("-*-lucidatypewriter-medium-r-normal-*-*-250-*-*-*-*-*-*");
       $osd->set_colour("Green");
      $osd->set_timeout(30);
      $osd->set_horizontal_offset(0);
      $osd->set_vertical_offset(10);
      $osd->set_shadow_offset(2);
  $osd->string(0,'Hello World!');
  sleep 5;
      $osd->set_horizontal_offset(0);
      $osd->set_vertical_offset(50);
      $osd->set_shadow_offset(2);
  $osd->percentage(0,56);
   sleep 5;
     $osd->set_horizontal_offset(0);
      $osd->set_vertical_offset(90);
      $osd->set_shadow_offset(2);
  $osd->slider(0,34);
  sleep 5;