#!/usr/bin/perl

use strict;

my @pss=`ps ax`;
foreach my $elem (@pss){

        my $ps0=$elem;
        $elem=~s/^[\s]*([0-9]+)[\s]+.*$//;
        my $pidn=($1);

        my $pid0=`vzpid $pidn|tail -1`;
        $pid0=~s/\s+(\d+)//;
        my $pid1=($1);

                if ($pid1==0) {
                        print "$ps0";

                }
}