#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Log::Log4perl qw( :easy );
Log::Log4perl->easy_init($DEBUG); # RESTORED LINE

my %listener_parameters = (
   Proto     => 'udp',
   Blocking  => 1,
   ReuseAddr => 1,
);
my $listener = new IO::Socket::INET(%listener_parameters)
  or die "IO::Socket::INET::new(): '$@'";

__END__

C:\Documents and Settings\Administrator\Desktop\mms>perl case.pl
IO::Socket::INET::new(): 'IO::Socket::INET: Bad file descriptor' at case.pl line 13.