#!/usr/bin/perl5.8.8

use strict;
use warnings;

my $infile = $ARGV[0];
chomp $infile;
open (my $INFILE,"<", $infile)
close ($INFILE);