Select Code to Download

Select or download this

data data dat data data[1;1H[24;0H[K7[1;1H[0;7mdata data data da
+ta data[0m8[23;0H[0;7m                                           
+                                  [0m[23;0H[2;1H[K[B[K[B[K[B
+[K[B[K[B[K[B[K[B[K[B[K[B[K[B[K[B[K[B[K[B[K[B[K
+[B[K[B[K[B[K[B[K[B[K[B[K[B7[1;65H[0;7m       Page   1
+[0m8[3;1H[3;23

...
[6;9Hdata: data         

[7;4Hdata data data data                 [7;49Hdata data data data

Select or download this

 my ($hostname, $line, $password, $pop, $username);

...
open FILE, "data.txt" or die $!; 
print FILE $line; 
close FILE;