#!/usr/bin/perl
      use strict;
      use warnings;
      use MP3::Tag;
      my $force_id3v2='TRUE';
      $mp3 = MP3::Tag->new('my.mp3');
      $mp3->title_set($new_title, $force_id3v2);
      $mp3->update_tags();