Select Code to Download

open(TICKS,"textfile")
   or die "Can't open textfile: $!\n";

my $line_number = 0;
while (<TICKS>) {                   # sic
   print "line $line_number: $_";
   $line_number++;
}