#!d:/perl/bin -w

use strict;
use diagnostics;
use File::Find;

@ARGV = ();
find sub {
  push @ARGV, $File::Find::name if (/\.pl$/ and (-M < 1.0));
}, "d:/perl";

$,="\n";
print @ARGV;