open my $fh, "<", "Google_1.txt";
print $_ while <$fh>;