Select Code to Download

#!/usr/bin/perl -w 
use MP3::ID3v1Tag;

use MP3::ID3v1Tag; # Adds the library
  $mp3_file = new MP3::ID3v1Tag("filename.mp3"); # Creates a new objec
+t called $mp3_file. 
...
        $mp3_file->set_title($title); # calls subroutine set_title(), 
+which will set the title to the value $title. In normal practice, you
+ probably would have parsed out of the filename
        $save_status = $mp3_file->save(); # calls subroutine save(), c
+ommitting your changes. 
  }