1 #!c:\\perl\\bin\\perl.exe 2 #讀取服務器的首行(banner)
3
4 use IO::Socket; 5
6 my $service = '121.201.67.177:ssh'; 7 my $remove = IO::Socket::INET->new($service); 8 my $banner = <$remove>; 9 print $banner;
#注意這個banner獲取， 最好設置一個超時值， 可以查看這個鏈接:http://www.cnblogs.com/perl6/p/6136200.html