Select Code to Download

#!/usr/bin/perl

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