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

##</code><code>##

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