fixown.pl

#!/usr/bin/perl -w

my $change=0;

my %uids=(
   1234=>4567,
   );
   
my %gids=(
   5432=>2345,
   );
   
my (undef,undef,undef,undef,$uid,$gid,undef,undef) = stat($ARGV[0]);

if(defined($uids{$uid})) {
   $uid=$uids{$uid};
   $change=1;
}

if(defined($gids{$gid})) {
   $gid=$gids{$gid};
   $change=1;
}

if($change==1) {
   chown $uid, $gid, $ARGV[0];
}