#!/usr/bin/perl

use Data::Dumper;
use MP3::Tag;
use utf8;
use strict;

binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";

MP3::Tag->config(write_v24 => 1);

my $audio_file = '/home/decmoon/tmp/test.mp3';
my $name = 'Test tagv2';

my $mp3 = MP3::Tag->new("$audio_file");
print Dumper(\$mp3);

my $id3v1 = exists $mp3->{ID3v1} ? $mp3->{ID3v1} : $mp3->new_tag("ID3v1");
$id3v1->title("$name");
$id3v1->write_tag();

my $id3v2 = exists $mp3->{ID3v2} ? $mp3->{ID3v2} : $mp3->new_tag("ID3v2");
#                       my $id3v2 = $mp3->{ID3v2};
print Dumper(\$id3v2);
print Dumper(\$id3v2->get_frame_ids);
$id3v2->add_frame("TIT2", $name);
$id3v2->write_tag();
print Dumper(\$id3v2->get_frame_ids);
$mp3->close();
my $mp3 = MP3::Tag->new("$audio_file");
my $id3v2 = exists $mp3->{ID3v2} ? $mp3->{ID3v2} : $mp3->new_tag("ID3v2");
print Dumper(\$id3v2->get_frame_ids);
$mp3->close();


exit;