$line = <IN>;
while(<IN>){
    $line .= $_;
}