Skip to content

Instantly share code, notes, and snippets.

/-

Created March 22, 2017 07:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/811c0082ad077b5a4007dfc124287d37 to your computer and use it in GitHub Desktop.
Save anonymous/811c0082ad077b5a4007dfc124287d37 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
-
#!/usr/local/bin/perl
use IO::Socket::UNIX;
my $foo = IO::Socket::UNIX->new(
Type => SOCK_STREAM(),
Local => "foo",
Listen => 1,
);
use DDP;
p $foo->hostpath;
chmod 0700, $foo->hostpath;
system("ls -l foo");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment