my $new_sock = $sock->accept();
while (my $storage = <$new_sock>) {
    print $storage . "\n";
    $new_sock = $sock->accept();
}
close($sock);