#!/usr/local/bin/perl
 
$file_orig = "_somefile.html";
$files = "filename_list.txt 
 
open (FILE, $files);      
@allfiles=<FILE>;     
close(FILE);   
 
foreach $name (@allfiles) {
 chop($name);
 system("/bin/cp $file_orig $name");
 }
 
exit;