Update Bunny.pl

This commit is contained in:
0iphor13
2021-12-23 13:10:55 +01:00
committed by GitHub
parent 27b1cd003e
commit 712ebe762c

View File

@@ -29,7 +29,7 @@ use NetPacket::ICMP qw(ICMP_ECHOREPLY ICMP_ECHO);
use Net::RawIP; use Net::RawIP;
use Fcntl; use Fcntl;
print "Bunny waitin' for his friend...\n"; print "Bunny waitin' for connection...\n";
# create raw socket # create raw socket
my $sock = IO::Socket::INET->new( my $sock = IO::Socket::INET->new(
@@ -40,7 +40,7 @@ my $sock = IO::Socket::INET->new(
# set stdin to non-blocking # set stdin to non-blocking
fcntl(STDIN, F_SETFL, O_NONBLOCK) or die "$!"; fcntl(STDIN, F_SETFL, O_NONBLOCK) or die "$!";
print "Let's wait for PingUin!\n"; print "Let's wait for PingZhell!\n";
my $input = ''; my $input = '';
while(1) { while(1) {