open(INF, $ref->{prodname) or die "Can't open $$ref{prodname}: $!";
print while <INF>;
close INF;