use MP3::Info;
  
my $file = 'fisch.mp3';
my $tag = get_mp3tag($file) or die "No TAG info";
print "GENRE vorher: $tag->{GENRE}\n";
$tag->{GENRE} = 'Rock';
print "GENRE nachher: $tag->{GENRE}\n";
set_mp3tag($file, $tag);

GENRE vorher: Other
GENRE nachher: Rock

#!perl

use strict;

use MP3::ID3v1Tag;

my $file = "mein.mp3";

my $mp3_file = new MP3::ID3v1Tag($file);
$mp3_file->print_tag();

my $title = "Trulla-Luh! Haha.";
my $genre = "Opera";
my $artist = "Tatz Wurm";
my $comment = "Au weh - das ist ein Mist!!!";
if($mp3_file->got_tag()
) {
     $mp3_file->set_title($title);
     $mp3_file->set_genre($genre);
     $mp3_file->set_artist($artist);
     $mp3_file->set_comment($comment);
     $mp3_file->set_year(2005);
     my $save_status = $mp3_file->save();
}

@MP3::ID3v1Tag::id3_genres_array