...
use strict;
use warnings;
use autodie;

use IO::Socket;

{
    open my $pid_fh, '>', '/var/run/aws.rcvr.pid';
    print $pid_fh "$$\n";
}

my ($sock, $new_sock, $buf );
$sock = IO::Socket::INET::->new(...);
...