無法弄清楚如何在perl中修復這個腳本

Question

我在perl中運行這個腳本並正確放入了id和port。不過，我不斷收到 「標發現，其中運營商預計將在16線附近的」 'SKYPE：// 1024，' $ ARGV」

#!usr/perl/bin 
    use LWP::UserAgent; 
    system("color a"); 
    system("title Skype <<"); 
    system("cls"); 
    if(!$ARGV[0]||!$ARGV[1]) { 
    print q { 

    Usage : perl skype.pl [userid] [port=1024,80,433] 
    }; 
    } 
    else { 
    use IO::Socket; 
    my $sock = new IO::Socket::INET (
    PeerAddr => 'skype://'.$ARGV[0], 
    PeerPort => 'skype://1024,'$ARGV[1], 
    Proto => 'tcp', 
    ); 
    die "Video Call Error: $!\n" unless $sock; 
    print $sock "skype://0x77656263616d5f647269766572\n"; 
    system("start ".$sock); 
    } 
    # jvoid(document.write(document.currentUser.id)); 

Answer 1

你有一個錯字有：

PeerPort => 'skype://1024,'$ARGV[1], 

應該是：

PeerPort => 'skype://1024,'.$ARGV[1], 
      #    ^--- missing period