#! /usr/local/bin/perl -w

use strict;

open (INPUT, $ARGV[0]) or die "unable to open file";