use Win32::OLE;
use Win32::OLE::Variant;

my $player= Win32::OLE->new('MediaPlayer.MediaPlayer')
    or die Win32::OLE->LastError();
$player->{'Autostart'} = Variant(VT_BOOL, 1)  or die Win32::OLE->LastError();
$player->{'FileName'} = "C:\\d\\media\\video\\Maratonci.avi" or die Win32::OLE->LastError();
print "FileName = $player->{FileName}\n";
sleep(5);
$player->AboutBox;
sleep(5);
$player->Invoke(Play) ;

#$player->Play or die Win32::OLE->LastError();
sleep(30);
$player->Quit() or die Win32::OLE->LastError();