#!/usr/bin/perl

for $d (@ARGV) {
	push @d, glob("$d/*");
}
@{f} =  sort { (stat(${a}))[9] <=> (stat(${b}))[9] } (@d); 
print "tail -f ${f[$#f]}\n";
__END__
