#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use Data::Dumper qw(Dumper);
use WorldCat::API;

my $oclc_number = $ARGV[0] or die <<EOF
Looks up a MARC::Record in WorldCat and dump(er)s it to STDOUT.

USAGE:

    find-by-oclc-number <oclc-number>
EOF

say Dumper(WorldCat::API->new->find_by_oclc_number($oclc_number));

1;

# PODNAME: find-by-oclc-number

__END__

=pod

=encoding UTF-8

=head1 NAME

find-by-oclc-number

=head1 VERSION

version 1.002

=head1 AUTHOR

Daniel Schmidt <danschmidt5189@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Daniel Schmidt.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
