#!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();
}