open(my $in, '<', 'file.dat')
   or die("Unable to open input file: $!\n");

while (my $line = <$in>) {
   if ($line) {
      print("true\n");
   } else {
      print("true for 'while', but false for 'if'\n");
   }
}