#!/usr/bin/perl

use MyLibrary::Core;
use MyLibrary::Patron;
MyLibrary::Config->instance( 'your_page');

my @patrons = MyLibrary::Patron->get_patrons;
foreach my $patron ( @patrons ) {

	print '      id: ' . $patron->patron_id . "\n";
	print '   netid: ' . $patron->patron_username . "\n";
	$patron->delete;
	print '  action: deleted' . "\n";
	print "\n";
	
}