#!/usr/local/bin/perl

$file = $ARGV[0];
open(FILE, "$file");
$col1 = $ARGV[1]-1;
$col2 = $ARGV[2]-1;

while (<FILE>) {

	@a = split(' ',$_);
	print $a[$col1], " ", $a[$col2],"\n";


}