open IN, $file and print <IN>;
試してはいない