open (my $fh, "< $dir/$file"  ) or die ("Can't open input file $!");

  while ( < $fh > ){
    print ;
  }