#!/usr/bin/perl

my $sudo = ''; $sudo = "sudo " if ($> != 0);

my @all=`$sudo vmoprcmd -h $ARGV[0] -autoconfig -t`;

my $line;

foreach $line (@all) {
	print $line;
}
print "\n";
foreach $line (@all) {
	print "", (split(' ', $line))[4], "\n";
}
print "\n";
foreach $line (@all) {
	print "", (split(' ', $line))[9], "\n";
}