#!/usr/athena/bin/perl

$commd = $ARGV[0];
$output = `$commd`;
@arr = split(/\n/, $output);
foreach $_ (@arr)
{
    $pstring = "";
    @fthis = split(/[ \t]+/, $_);
    foreach $n (1..$#ARGV-1)
    {
	$pstring = $pstring.$fthis[int($ARGV[$n])];
	if ($n != $#ARGV) { $pstring = $pstring."\t"; }
    }
	if($ARGV[$#ARGV] =~ /-/){
		$a = $ARGV[$#ARGV];
		$a =~ s/-//;
		foreach $n ($a..$#fthis){
			$pstring = $pstring.$fthis[$n];
			$pstring = $pstring." ";
		}
	}
	else{
		$pstring = $pstring.$fthis[int($ARGV[$#ARGV])];
		if ($n != $#ARGV) { $pstring = $pstring." "; }
	}
    $pstring = $pstring."\n";
    print $pstring;
}
print("\n\n");