my $a_file = (glob("1bn9.*.cnt")) or die "No file found";
rename $a_file,"1bn9.cnt" or die "Couldn't move file";