I figured it out and posted the code below if anyone needs it.

use Win32;
use Win32::OLE;

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

print $objHello->Hello;
[download]