I'm not 100% what you want your script to do, but I'm pretty sure that copy ($figfile, "$1.tmp") doesn't do what you want.

In my quick-and-dirty version of your script (with paths for my localhost), copy ($figfile, "$1.tmp") copies "your_file.htm" to a file named ".tmp", instead of one named "your_file.htm.tmp". Is the latter what you want?

Edit: I should probably explain why. $1 does the following (from perldoc.perl.org):

The text matched by the used group most-recently closed (i.e. the group with the rightmost closing parenthesis) of the last successful search pattern.

Also, I'll mention that you never chdir to $html_dir in your code, so your copy happens in whichever directory your script is running (which I'm guessing isn't where you keep your HTML files).

Finally, it's helpful to include the error message that you're getting when you run your code.

Here's your code, properly formatted with <code> tags. Also, those line numbers in your code aren't helpful here. Format your code and your questions better if you want quicker answers. The details are here: Writeup Formatting Tips.

#!/pw/prod/svr4/perl/bin/perl -w
# ARGUMENTS: engine_figurelinks.pl xx_manual_vvv
# where xx = manual code, vvv = version
#
# MODIFICATIONS:
#
#------------------------------------------------------

use warnings;
use diagnostics;
use Env qw(SERVER_NAME);
use CGI qw(:standard :netscape);
use File::Copy; 
new CGI; 

#------------------------------------------------------  

($manualdir_param) = @ARGV; 
$working_dir = $manualdir_param; 
$working_dir =~ s/manualdir=//i;  
$data_area = "/tmp"; 
$html_dir = "$data_area/$working_dir"; 
#------------------------------------------------------

# Loop to locate HTML files and make working tmp copies

opendir( HTMLSTORIES, "$html_dir") || die "HTML files do not exist: $1
+";
@FigureArray = grep{/\.htm$/} readdir ( HTMLSTORIES );
foreach $figfile (@FigureArray) {
    copy ($figfile, "$1.tmp") or die "Can not make temporary copy of f
+ile: $1";
}

closedir HTMLSTORIES;
[download]

Using perl 5.8.1-RC3 unless otherwise noted.
Apache/1.3.33 (Darwin) unless otherwise noted.
Mac OS X 10.3.9 unless otherwise noted.
[download]