It's really much easier than you think.

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

open (DIR, '>> c:\dir\dir.txt') || die "Can't open file; $!" ;

print DIR $_ foreach `dir *.pl`;

close DIR;
[download]

Update: Removed unnecessary comma from print statement.

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me