#!/usr/bin/perl use 5.28.1; use warnings; use strict; use Audio::Scan; use Data::Dumper; local $ENV{AUDIO_SCAN_NO_ARTWORK} = 1; my $data = Audio::Scan->scan('/root/test.mp3'); say Dumper($data->{tags});