求助：IO:Socket error:Connection refused

CODE:

以下程序运行后  发现出现socket错误
：
        IO:Socket  error:Connection refused
不知道Perl如何调试和判断错误的原因？

#!/usr/bin/perl
# use IO::Socket to scan directories for websites.
use strict;
use IO::Socket;
if (@ARGV=0)
        {
        print "Please input a website url\n";
        }
my $url=inet_ntoa(inet_aton($ARGV[0])) or die "Can't resolve host.\n";
open(URL,"webdir") or die "can't open that webdir file";
my @webdir=<URL>;

foreach my $dir (@webdir)
        {
        chop($dir);
        my $sendbuf = "GET $dir HTTP/1.1\n"."Host:$ARGV[0]\n\n\n";


        my $socket = IO::Socket::INET->new(PeerAddr => $url,
                                PeerPort => 80,
                                Proto => "tcp",
                                Type => SOCK_STREAM)
        or die "Can't connect to $ARGV[0]:$@\n";
        print $socket,$sendbuf;
        my $return=<$socket>;
        if($return=~/\b200\b/ or $return=~/\b401\b/)
        {
        print "Exist:$ARGV[0]$dir\n";
        close $socket;
        }
        close URL;
        print "\t ALL Done!Find it..Good Luck!";

        }