Dudul belajar Perl

Section : Simple (Banget) Remote SSH Grab Banner

Catatan : baru bisa sempurna buat SSH , karena SSH langsung print banner infonya secar sempurna di line pertama :(

[---------------------------------//code------------------------
#!/usr/bin/perl -w
print "*Simple Remote SSH Grab Banner by y3dips*\n";
if(@ARGV==0)
#Help Options
{
print "Gunakan: perl $0 www.target.com:ssh \n";
}
else
#Processing
{
use IO::Socket;
my$server = shift;
my$love = IO::Socket::INET->new($server);
my$garis = <$love>;
print "Result = $garis";
}
--------------------------------------------\\EOF------------]