use Win32::API;

use strict;
use warnings;

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