Add 901c print tool.

diff --git a/marc_export_custom/print901c.pl b/marc_export_custom/print901c.pl
new file mode 100755 (executable)
index 0000000..c45b8ad
--- /dev/null
+++ b/marc_export_custom/print901c.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use MARC::Batch;
+use strict;
+use warnings;
+
+
+my $batch = MARC::Batch->new( 'USMARC', @ARGV );
+$batch->strict_off();
+$batch->warnings_off();
+
+while ( my $marc = $batch->next ) {
+    print $marc->subfield(901,"c"), "\n";
+}