#!/usr/bin/perl
$hostname = (chr((shift)) x 10)."^8AAA YOUR SERVER NAME HERE";
my $file = shift;
open(file, $file) or die $!;
open(out, ">$file.out") or die $!;
while ($l=<file>) {
        $l =~ s/\%HOSTNAME\%/$hostname/g;
        print out $l;
}
exit(0);