ciao
ho risolto così:
codice:
#!/usr/bin/perl

while(1)
{
  print "Scegli cosa fare:";
  print "\nInserisci\t\ti";
  print "\nRicerca\t\tr";
  print "\nAnnulla\t\tu\n";
  print "La scelta è: ";
  $c=<STDIN>;
  if($c=~/[iI]/){insert()}
  if($c=~/[rR]/){print "Pippo";}
  if($c=~/[uU]/){exit(0);}
}

sub insert()
{
  print "\n\n\t\tNuovo Utente\n\n";
  print "\n\nInserisci nome e cognome:\t";
  $nome=<STDIN>;
  chop $nome;
  print "\n\nInserisci il numero telefonico:\t";
  $numero=<STDIN>;
  chop $numero;
  print "\n\nInserisci l'indirizzo:\t";
  $indirizzo=<STDIN>;
  open FILE,">>./agenda.dat";
  print FILE "$nome:$numero:$indirizzo";
}