Luiz Deutsch

Tenho dois arquivos em Perl, sendo que: Um dos arquivos terá que retornar informações de uma outra sub rotina do outro passando valores por parâmetros. Por exemplo: arquivo2.pl: sub soma{ my ($n1,$n2) = @_; return $n1+$n2; } arquivo1.pl sub principal{ require 'arquivo2.pl'; my $somar= soma(1,2); print $somar; } Da forma acima não está funcionando. Por favor, me ajudem :)