se non ricordo male (sono un pò di anni che ho accantonato il PERL), per chiamare routine presenti in file differenti si fa così:
codice:
# file principale "main.pl"

#!/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]/){
      require "my_insert.pl";
      &my_insert;
  }
  if($c=~/[rR]/){
      print "Pippo";
  }
  if($c=~/[uU]/){
      exit(0);
  }
}
codice:
# file esterno "my_insert.pl"

sub my_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";
}
1;
P.S. per parlare di PERL c'è il forum apposito.
Sposto il thread.