use 5.010;
use strict;
use warnings;

say "What is your name? ";
my $name = <STDIN>;
chomp $name;
say "Hello $name, how are you?";

# Leer un fichero de texto
my $filename = 'C:\Users\Juan\12051601_merged.tcx';
open INFILE,$filename;
my $linea;
while ( $linea = <INFILE>) {
    chomp($linea); 
    # Incluir aquí debajo el código para procesar la línea
    print $linea . "\n";
} 
close INFILE;