use POSIX qw(setsid);
use Sys::Syslog;
use Sys::Hostname;
-use LWP::Simple;
+#use LWP::Simple;
$debug = 0;
$proc = "pl_mom";
sub get_slice_info {
if (! $debug) {
- $content = get "http://127.0.0.1:3100/slicestat";
+ #$content = get "http://127.0.0.1:3100/slicestat";
+ $content = `curl -s http://127.0.0.1:3100/slicestat`;
} else {
$content = `cat ../pl_mom-deploy/slicestat`
}