[FUGSPBR] [OT] Alguém?=sabe PERL por =?iso-8859-1?q?aí?

[Alexandre Mioranza]

Preciso alterar um script em perl e não estou conseguindo, me falta experiência na linguagem, e preciso disto meio urgente se alguém poder me ajudar com alguma documentação ou me mostar como fazer para alterar o código. Vou transcrevê-lo abaixo para demonstrar o que preciso fazer:

>>>>>>>>>>> Inicio codigo

$displayNumber = 1;
$geometry = "800x600";
$depth = 24;
$desktopName = "X";
$vncUserDir = "$ENV{HOME}/.vnc";
$xauthorityFile = "$ENV{XAUTHORITY}" || "$ENV{HOME}/.Xauthority";

>>>>>>>>>> Fim do código

Enfim o que quero mudar é algo estúpido mas não conheço alinguagem para poder fazê-lo, o que eu preciso é tornar a variável $displyNumber dinâmica e não fixa, ele vai pegar o número do display através do arquivo .X<num_display>-lock que é um arquivo que está localzado em /tmp incrementado em + 1. 

Se alguém poder me ajudar eu agradeço.
_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/