#!/usr/bin/perl my $template = 'MAKEDEBUG.template'; my @listing = `cd cgi-scripts; ls *.pl; cd ..`; foreach my $file (@listing) { chomp $file; system "cp $template $file" unless -e $file; }