...bunch of not-interesting settings...

local $SIG{INT} = sub { print "| NEXT!\n|\n"; };

foreach $track (@playlist) {
  print "| Track: $track\n";
  open (PIPE, "ssh $machine \"cat $soundroot/$track\" | mpg123 - | ");
}

print "+--- All done! ---\n\n";