use Audio::TagLib;
$test = shift;
$file = Audio::TagLib::FileRef->new($test);
say 'title:', $file->tag()->title()->toCString();
say 'track', $file->tag()->track()->toCString();