Subir archivos a "/"

perl_script.pl

@@ -0,0 +1,19 @@
+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;