rename audio mp4 files to m4a

#!/usr/bin/perl

# appease songbird

use strict;
use warnings;

while (my $filename = <STDIN>) {
    chomp $filename;

    if ($filename =~ /(.+).mp4/) {
	my $new_name = "$1.m4a";
	rename $filename, $new_name;
    }

}