open(BSC,'>','BSC') or die $!;