i dont have a good experience with a perl..
and i need anyone to help me to
Describe what this program does with explanation plz :
Code:
 
@files = (f1.txt, f2.txt, f3.txt);
foreach $file (@files) {
open (FILE, $file) || die Cannot open $file\n;
$lines = <FILE>;
close FILE;
open (FILE, >>out);
print FILE $lines;
close FILE;
}
plz ASAP
Best Regards