#!/usr/local/bin/perl
open (INDAT, $ARGV[0]) || die "\n";
close(INDAT);
exit;
