open STDIN, "<$file" or die "can't open STDIN from $file - $!\n";
my @data = <STDIN>;
my $chk1 = sprintf "STDIN file num is %d", fileno(STDIN);
print STDERR $chk1."\n";
close STDIN or die "error closing STDIN - $!\n";
open TMP, "<$file";
$chk1 = sprintf "TMP file num is %d", fileno(TMP);
print STDERR $chk1."\n";