1c1
< #!/usr/bin/perl
---
> #!/opt/local/bin/perl
8c8
< # malicious ID3v1 tag could hose you.
---
> # malicious FLAC/ID3v1 tag could hose you.
11c11
< use MP3::Info;
---
> use Audio::FLAC::Header;
19,20c19,21
<   if ($tag = get_mp3tag($file)) {
<     $year = $tag->{YEAR};
---
>   if ($flac = Audio::FLAC::Header->new($file)) {
>   	$tag = $flac->tags();
>     $year = $tag->{DATE};
26c27
<     $tracknum = $tag->{TRACKNUM};
---
>     $tracknum = $tag->{TRACKNUMBER};
30c31
<     print "Couldn't get id3v1 tag for $file.\n";
---
>     print "Couldn't get flac tags for $file.\n";
