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