#!/usr/bin/perl
use warnings;

my @content =( "Artist","Title","Album","Year","Genre");

use MP3::Tag; # import module

@files = <c:/*.mp3>; # find MP3 files in current directory
#i want to search my whole computer instead of a particular drive..How?????
# loop over file list
# print tag information
foreach (@files) {
$mp3 = MP3::Tag->new($_);
$mp3->get_tags();

if (exists $mp3->{ID3v1}) {
#print $_, "\n",
#print "Filename: $filename\n";
print "Artist: " . $mp3->{ID3v2}->artist . "\t";
#print "Length", $mp3 ->{ID3v1}->duration(hh:mm:ss) "\n";
print "Title: " . $mp3->{ID3v1}->title . "\t";
print "Album: " . $mp3->{ID3v1}->album . "\t";
print "Year: " . $mp3->{ID3v1}->year . "\t";
print "Genre: " . $mp3->{ID3v1}->genre . "\n";