#!/usr/bin/perl -w
use strict;
use warnings;

my @play = qw(mp -vf yadif=1);

my %seen;

while (1) {
	my @files = grep { !$seen{$_} } split /\n/, `ls -tcr`;
	last if !@files;
	system @play, @files;
	$seen{$_} = 1 for @files;
}