use Win32::API;

use strict;
use warnings;

my $f = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
my $ret = ' ' x 127;  
my $return = $f->Call('set CDAudio door open', $ret, 127, 0);