#!/usr/bin/perl

$out = 0;
$in = 0;

$proclist = `ps auwwx`;
if($proclist =~ /tailrsync (\d+),(\d+)/) {
  $out = $1;
  $in = $2;
}

print "$in\n$out\n\n\n\n";


