All pastes #834270 Raw Edit

Mine

public text v1 · immutable
#834270 ·published 2007-12-28 01:51 UTC
rendered paste body
#!/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);