#!/usr/bin/perl

my $infile="asdf";
open (INF, "<$asdf") or die "Can't open $infile: $!";
exit;
