[perl] IRC bot - insult user on join

Code:
#!/usr/bin/perl

use strict;

use warnings;

use IO::Socket;





my $server = "irc.server.com";

my $nick = "nick";

my $login = "better_than_you";





my $channel = "#channel";



# exempt list:

my @Exempt = qw(your_nick friends_nick);





my $sock = new IO::Socket::INET(PeerAddr => $server,

                                PeerPort => 6667,

                                Proto => 'tcp') or

                                    die "Can't connect\n";





print $sock "NICK $nick\r\n";

print $sock "USER $login 8 * :Perl IRC Robot\r\n";





while (my $input = <$sock>) { # stole this loop from the internet.  I forget where, specifically, but I stole it.

    if ($input =~ /004/) {

        last;

    }

    elsif ($input =~ /433/) {

        die "Nickname is already in use.";

    }

    print $input;

}



print $sock "JOIN $channel\r\n";



while (chomp(my $input = <$sock>)) {    

    print "$input\n";

    if ($input =~ /^PING(.*)$/i) {



        print $sock "PONG $1\r\n";

    } elsif ($input =~ /^:(.*)!.* JOIN :$channel/i) {

        if(not_exempt($1)!= 1) {

            print $sock "PRIVMSG $channel And that's why $1's a fggot.\r\n";    

        }

    }



}



sub not_exempt() {

    my $nick = $_[0];

    foreach(@Exempt) {

        if($_ eq $nick) {

           return 1;

        }

    }

    return 0;

}