#!/usr/bin/perl

use strict;
use warnings;

chomp(my @lines = `metastat -p|grep "p "|awk '{print \$3}'|sort|uniq`);

print @lines;