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);

##</code><code>##

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);

##</code><code>##

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);

##</code><code>##

Modification of a read-only value attempted at C:/Perl/site/lib/Win32/API/Type.p
m line 195, <DATA> line 164.