#!/usr/bin/perl

for ($i=1; $i <= 14; $i++)
{
    for ($j=1; $j <= 6; $j++)
    {
	for ($k=1; $k <= 5; $k++)
	{
	    $fname = "song".$i."f".$j."sel".$k.".mat";
	    $cmd = "wget http://homepages.cae.wisc.edu/~sethares/clusterdata/$fname";
	    print "$cmd\n";
	    system ($cmd);
	}
    }
}