#!/usr/local/bin/perl

$filename= shift;

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

open (STDIN, "$filename");
open (STDOUT, ">$filename+");

while (<STDIN>)
{
    s=/usr/lib/X11=/usr/X11/lib=g; # vrwebsv
    s=/usr/X11R6/=/usr/X11/./=g; # arena
    s=/usr/local/lib=/usr/X11/./lib=g; # vrweb
    print;
}

close STDOUT;

utime $atime, $mtime, "$filename+";
chmod $mode, "$filename+";