#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

use MP3::Tag;

my $filename = $ARGV[0];
die "Usage: $0 filename" unless $filename;

my $mp3 = MP3::Tag->new($filename);
$mp3->get_tags();
my $id3v1 = $mp3->{ID3v1} if exists $mp3->{ID3v1};
my $id3v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};

# Convert id3v2 track format to id3v1
my $track = $id3v2->track;
$track = sprintf( "%02d", (split(/\//, $track))[0] );
$id3v1->track($track);

$id3v1->write_tag();