#!/usr/bin/perl
use strict;
use IO::Socket::UNIX;

my $TheSocket;

MAIN:
{
	die("The first and only requirement should be the name of the OEFS instance, and is required!\n") if (!($ARGV[0]));
	$TheSocket = new IO::Socket::UNIX('Peer' => '/tmp/OEFS/' . $ARGV[0]) || die("$!\nUnable to connect!");
	print "Socket says: " . <$TheSocket> . "\n";
	$TheSocket->close();
	exit(0);
}