use Win32::API;

use strict;
use warnings;

my $f = Win32::API->new("winmm", 'long mciSendString(LPSTR a, LPSTR b, long c, long d)');
my $ret = ' ' x 127;
$f->Call('set CDAudio door open', $ret, 127, 0);