use IO::All;
$temp < io("$file");