#!/usr/bin/perl

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

use CGI;
$q = new CGI;

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