It might be better to give a more verbose error message using $!:

my $SOCK = IO::Socket::INET->new(
        LocalHost => 'node01',
        LocalPort => 9000,
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1,
    )
    or die "Socket creation failed: $!";
[download]