use SDL ':init'; use SDL::CDROM; SDL::init(SDL_INIT_CDROM); print SDL::CDROM::num_drives(); print SDL::CDROM::name(0); SDL::quit();
my $drives = SDL::CDROM::num_drives();
Returns number of drives available on the system
my $drive_name = SDL::CDROM::name($drive_num);
Returns human readable name for CDROM device
Examples: