sub fix_id3 {
  # Here's where the magic is done
  $album = $_[0];
  $artist = $_[1];
  $genre = $_[2];
  $file = $_[3];
  print "What is the track name? ";
  chomp ( $title = <STDIN> );
  # wrap the object constructor call in an eval to 
  # make sure we catch any weird errors and object was 
  # created ok
  eval {
    $mp3 = MP3::Tag->new($file);    # Creates new object
  };
  # Make sure the object was created OK
  if ($@) {
    die qq{Error creating MP3 object, $@}; # if not, die and tell us why
  }
  unless ( exists $mp3->{ID3v1} ) { # assure ID3v1 is a valid option
    $mp3 -> new_tag("ID3v1");
    $mp3 -> {ID3v1}->write_tag; # otherwise, create it
  }
  $mp3 -> {ID3v1} -> title("$title"); # adds element title
  $mp3 -> {ID3v1} -> artist("$artist"); # adds element artist
  $mp3 -> {ID3v1} -> album("$album"); # adds element album
  $mp3 -> {ID3v1} -> genre("$genre"); # adds element genre
  $mp3 -> {ID3v1} -> write_tag(); # writes the tags
  $mp3 -> close(); # close the file
  # we'll also rename the files
  $oldname = "$file";
  $newname = "${artist} - ${title}.mp3";
  rename $oldname, $newname;

  print "\n";
}