use strict;
use Tk;
use Win32::MultiMedia::Mci;

my $file = shift || 'test.wmv';

my $mw = MainWindow->new();

my $video_frame = $mw->Frame(
-width => 352,
-height => 240,
-background => 'black'
)->pack(-expand => 1);

my $mci = Win32::MultiMedia::Mci->open($file,
shareable => 1,
style => 'child',
parent => hex($video_frame->id)
);

$mci->play('');

MainLoop();