##
#!/usr/local/bin/perl
use strict;
use warnings;
for(){
print substr ($_,0,3),"\n" ;
}
__DATA__
accgttac
##
##
run Start -> Program Files -> Strawberry Perl -> CPAN Client
##
##
CPAN> install BioPerl