#!/usr/bin/env perl

use strict;

my @naxos = glob("naxos/*.m4a");

foreach my $file (@naxos) {
	my $efile = $file;
	$efile =~ s/naxos/eastwest/;
	next if -r $efile;
	my $base = $efile;
	$base =~ s/.*\///;
	`(cd eastwest && ln -s ../$file ./$base)`;
}