#!/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;