diff --git a/Repositories/Misc/harvest.pl b/Repositories/Misc/harvest.pl
new file mode 100755
index 0000000..bb31fba
--- /dev/null
+++ b/Repositories/Misc/harvest.pl
@@ -0,0 +1,25 @@
+use Net::OAI::Harvester;
+use strict;
+
+my $url = shift;
+
+## create a harvester
+my $harvester = Net::OAI::Harvester->new( 
+	'baseURL' => $url,
+);
+
+## get a list of identifiers 
+my $identifiers = $harvester->listAllIdentifiers(
+	'metadataPrefix'    => 'oai_dc'
+);
+
+while ( my $header = $identifiers->next() )
+{
+	if ( $header->status() ne "deleted" )
+	{
+		print $header->identifier(),
+			"\t",
+			$header->datestamp(),
+			"\n";
+	}
+}