use Win32;
use Win32::OLE;

my $objHello;
$objHello = Win32::OLE->new('Hello.World');

print $objHello->Hello;