Select Code to Download

#!c:/perl/bin/perl -w

...
printf "Room %s, shelf %s\n", $cd->get_location;
$cd->set_location(5,3);
print CD::Music->get_count, "\n";