#!/usr/bin/perl

use strict;
use warnings;

printf("\n >> START PROCESS ...\n");
open (ARQ, "< ./arq.txt"); 
while ($line = <ARQ>) {
      chomp($line);
      printf("[$line]\n");
}
printf("\n    ... END PROCESS <<\n");



##</code><code>##

    while (<>) {
	chomp;	# avoid \n on last field
	@array = split(/:/);
	# ...
    }   
 


##</code><code>##

    chomp($cwd = `pwd`);
    chomp($answer = <STDIN>);