my $MM_MCINOTIFY = 953;
$mainwindow->Hook($MM_MCINOTIFY, \&mciNotify);

#########################
sub mciNotify{
	print "mciNotify: @_\r\n";
	return 1;
	}