#!/usr/bin/perl

print "Content-type: text/html\n\n";

use CGI;
$q = new CGI;

$a = "file1.htm";
$b = "file2.htm";
        
chdir("$ENV{DOCUMENT_ROOT}/") || die "Can't open = $!\n";
                 
rename($a, $b) || die "Can't rename $!";