view release on metacpan or  search on metacpan

lib/App/SortCopies.pm  view on Meta::CPAN

                $dup_dir,
                "${name}_$i$ext"
            ) while -e $dest and $i++;

            move($path, $dest) or warn $!;
            say "Duplicate $file is moved to $dest";
        }
        else {
            $fried{$hash} = 1;
        }
    }

    say "All copies in $src have been moved to $dup_dir!";
}

1;

=head1 SYNOPSIS