sub artist { return(shift->set("artist", @_)); }
sub album { return(shift->set("album", @_)); }
sub track { return(shift->set("title", @_)); }
-sub tracknum { return(shift->set("tracknum", @_)); }
+sub tracknum { return(shift->set("track", @_)); }
sub comment { return(shift->set("comment", @_)); }
sub audiotype { return "mp3"; }