G'day supriyoch_2008,

The documentation for Bio::DB::GenBank says that get_Seq_by_acc() returns a Bio::Seq object.

"I have got the following output from the script. It does not show name of individual gene."

The Bio::Seq documentation shows the desc() method you used. It's return value (your $desc) is the only data you output. Why did you you expect "name of individual gene" when you printed this?

I suggest you read the Bio::Seq documentation. It has methods for accessing the type of information you seem to want.

The Documentation section of the "BioPerl distribution page" shows many scripts. Do any of these do what you want? Do any have source code that helps with your current task?

The "BioPerl MANIFEST page" has a whole screenful of links to "examples/*" files. I suggest you have a look at these also.