use strict;
use warnings;
use Win32::OLE;
my $app = Win32::OLE->CreateObject('{6BF52A52-394A-11d3-B153-00C04F79FAA6}');
$app->{'URL'} = "http://www.dailywav.com/0403/toothpasteshampoo.wav";
my $cont = ($app->{'controls'});

print  "his:" . $app->{'URL'} . "\n";
print  "his:" . $app->{'controls'}->{'URL'} . "\n";