#script de Retorno de versao 

#!/usr/bin/perl
$^I=".bak";

#Perguntando quais as versoes quer trocar.

print "Qual a versão atual ?";
$versaoatual;

print "Qual a versão antiga ?";
$versaoantiga;


#abrindo o arquivo de caminhos

$arquivo = "caminho.txt";
open (CAM,$arquivo);
@caminhos=<CAM>;

#colocando um contador para se mover nas linhas da matriz
$i = 0;

while(@caminho != EOF) 
{
   $local = @caminho[i];
   @ARGV = $local;
   while (<>)
      {
        s/$versaoatual/$versaoantiga/g;
	print
       }
    i++;
}