view release on metacpan or  search on metacpan

cpanthanks  view on Meta::CPAN

GetOptions(
    'limit=i'            => \$limit,
    'order-by=s'         => \$order_by,
    'skip-modules=s{1,}' => \@skip_modules,
    'skip-authors=s{1,}' => \@skip_authors,
) or pod2usage();

my $love = '<3';
if (Term::Encoding::term_encoding() =~ /^utf-?8$/i) {
     binmode STDOUT, ':utf8';
     $love = "\x{2665}";
}

BEGIN {
    if ($^O =~ /Win32/) {
        require Win32::Console::ANSI;
        Win32::Console::ANSI->import;
    }
}