$data = "c:\file.txt";
open DATA, $data or die "failed to open";
while (<DATA>) (
  .....some code etc
close DATA;