sub GetCurrentListBoxItem{

Description: Returns the current list box item as text.

How To:

Just call the subroutine:

GetCurrentListBoxItem();

Cookbook recipe

use Win32::OLE;
use Win32::SAM;
#use Win32::Slingshot;

$| = 1;
my $URL = "http://samie.sourceforge.net/listbox.html";
my $seconds;
my $item;

$Win32::OLE::Warn = 3;

StartIE();
$seconds = Navigate($URL);
print "listbox.html page took $seconds seconds to load\n";
$item = GetCurrentListBoxItem();
print "Here is the current item: $item\n";

Further Notes:

This function only returns the current list box item of the first list box it finds in the form.