open (IN, "/home/reports/ftp/WSB/test.txt");

....

while ( <IN> ) {
  my $line = $_;
  ....
}