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

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

while (<DIR>) {
     my $dir = `dir *.pl` ;
     write DIR ;
}

close DIR ;