use Phone;

$konyv = Phone->New("e:/home/stsmork/script/book.txt");

if( $konyv )
{

  while(1)
  {
    print "\nName: ";
    $name = <STDIN>;
    chop($name);

    exit if $name eq "";

    $Aref = $konyv->LookupByName( $name );
  
    if( $Aref )
    {
      foreach $number ( @{$Aref} ) 
      { 
        print "$name  $number\n"; 
      }
    }
    else
    {
      print "$name not found\n";
    }
  }

}