oh-my-git/scripts/fake-editor
2020-09-09 18:32:57 +02:00

11 lines
295 B
Perl
Executable file

#!/usr/bin/env perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
PeerPort => 1234,
Proto => "tcp",
Type => SOCK_STREAM);
my $reply;
$socket->read($reply, 1000);