Instantly share code, notes, and snippets.

View fixown.pl
#!/usr/bin/perl -w
my $change=0;
my %uids=(
1234=>4567,
);
my %gids=(
5432=>2345,