#! /usr/perl/bin/perl

use lib qw(./modules);
use warnings;
use Load;

$list="./data/list.txt";
$dir=Load->new();
$dir=Load->listNames($list);
$counter=0;
print "=============================================\n";  
print "==           D I R E C T O R Y             ==\n";  
print "=============================================\n\n";
sleep 1;
### Search Loop
until($counter==1){
print "Please enter name to be searched:\n\n";
chomp($string=<STDIN>);
sleep 2;
$dir=Load->search($string);
$dir=Load->display();
sleep 2;
print "Would you like to search another?[y/n]\n\n";
chomp($ans=<STDIN>);
if ($ans=~/^[yY]/){
	print "\n";
	next;
}
elsif ($ans=~/^[Nn]/){
	print "\nClosing directory ...\n\n";
	sleep 2;
	$counter++;
}
else {
	$counter++;
}
}