Change my $target=<STDIN>; to my $alvo=<STDIN>;, change Proto =>"tcp to  Proto =>"tcp", and just enter www.google.com at the command line.

Output after these changes: