in reply to renaming files question

So I guess you only want to handle one of these files, regardless of how many there are? This should do the trick:

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

[download]

There are ten types of people: those that understand binary and those that don't.

In Section Seekers of Perl Wisdom