#synopsis
 use Win32::MCI::Basic;
  my $lpszCommand = "status cdaudio number of tracks"; # example MCI command
  my ($APICallReturnValue, $lpszReturnString) = mciSendString($lpszCommand);
  print "Number of tracks: $lpszReturnString\n";

  my $lpszErrorText = mciGetErrorString($ReturnValue);
  print "Error: $lpszErrorText\n";