my $tmp;
$tmp = $_ while <FH>;
print $tmp;