Hi I already changed the script to this :

#! /usr/perl/bin/perl

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

my $list="./data/list.txt";
my $dir=Load->new();
$dir->listNames($list);
my $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(my $string=<STDIN>);
sleep 2;
$dir->search($string);
$dir->display();
sleep 2;
print "Would you like to search another?[y/n]\n\n";
chomp(my $ans=<STDIN>);
if ($ans=~/^[yY]/){
    print "\n";
    next;
}
elsif ($ans=~/^[Nn]/){
    print "\nClosing directory ...\n\n";
    sleep 2;
    $counter++;
}
else {
    $counter++;
}
}
[download]

but still no returned search result. Please help, thanks.

Edit: g0n - moved node text out of code tags