{
  local $/;
 
  open (INPUT, "$direct$slash"."$file");

  while ($data=<INPUT> ) {
  ...