負荷について教えていただきたく思っているのですが、

sub send_socket{
　use Socket;
　my ($host, $filename, $data) = @_;
　my $path = "$filename?$data";
　my $return_value;
　my $port = getservbyname('http','tcp');
　my $iaddr = inet_aton("$host") or return 0;
　my $sock_addr = pack_sockaddr_in(80,$iaddr);
　socket(SOCKET,PF_INET,SOCK_STREAM,0) or return 0;
　connect(SOCKET,$sock_addr) or return 0;
　select(SOCKET);
　$| = 1;
　select(STDOUT);
　print SOCKET "GET /$path HTTP/1.0\r\n\r\n";
　while(<SOCKET>) {m/^\r\n$/ and last;}
　while(<SOCKET>) {$return_value .= $_;}
　close SOCKET;
　return $return_value;
}

これで内容を取得するのと

sub send_socket{
　my @wget_status = `/usr/bin/wget -q -O - "http://$host/$path"`;
　foreach (@wget_status){ $return_value .= $_; }
　return $return_value;
}

これで取得するのとでは同等という考えではございませんでしょうか。
ご教示いただけますと幸いです。