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

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

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($frame->id) 
); 

$mci->play('');