Select Code to Download

use constant GENRE_ROCK => 0;
use constant GENRE_POP => 1;
...
  $genre == GENRE_METAL and print "metal ";
}
print "\n";