tempProteinFamFileCreator();
...
sub tempProteinFamFileCreator 
{
my $infile = $ARGV[0]."_ProFam";