use lib join ' ', qw( C:\Documents and Settings\Administrator\Desktop\Code\BioPerl );