#!/usr/bin/perl5 -w

($idnum, $file) = @ARGV;

$idnumhtml = $idnum . ".html";
#`cp $file $idnum`;
open (INFILE, "+<$file") || die "Could not open file $file \n";
$output = $idnumhtml;
print $output;
open (OUTFILE, ">$output") || die "Could not open file $output \n";
while (<INFILE>) 
{
  $line = <>; 
  $line =~ s/id#/$idnum/;
  print OUTFILE	$line;

}
close(INFILE);
close(OUTFILE);