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