print "ID: $words[0]\n";

##</code><code>##

open my $inFile, '<', $filename or die "Can't open $filename: $!\n";