#!/usr/bin/perl -w

use strict;
use warnings;

my $path = "/scratch/My Music/personal/";
my $rtunes = "/usr/local/bin/rtunes";
my $madplay = "/usr/local/bin/madplay";
my $airport = "192.168.0.5";

open PLAYLIST, "< songs.list" or die "Can't open playlist!\n";

while(<PLAYLIST>) {

	chomp;
	my $song = $_;
	print "playing: '$path$song'\n";
	system("$madplay -o raw:- '$path$song' | $rtunes -h $airport -");
}

close PLAYLIST;