gistfile1.pl

package Plack::Server::Standalone::Accept;
use strict;
use warnings;

use base qw(Plack::Server::Standalone);
use IO::Socket::INET;

sub setup_listener {
    my $self = shift;
    open my $socket, "<&=0"
        or die "Cannot open stdin: $!";
    bless $socket, "IO::Socket::INET";                                          
    $self->{listen_sock} = $socket;
}

1;