#1
#!/usr/bin/perl


$ENV{CLUSTALDIR} = 'C:\\\\\\\\\\\\\\\\\\\\\;
use Bio::Tools::Run::Alignment::Clustalw;

my $file = <>; # Get file name (fasta file) from command prompt.

#  Build a clustalw alignment factory
my $factory = Bio::Tools::Run::Alignment::Clustalw->new(-matrix => 'BLOSUM'); 
my $ktuple = 2;
$factory->ktuple($ktuple);

my $inseq = Bio::SeqIO->new(
                    '-file' => "<$file",
                    '-format' => 'fasta'
                   );
my $seq;
my @seq_array;
while ($seq = $inseq->next_seq) {
    push(@seq_array, $seq);
}
# Now we do the actual alignment.
my $seq_array_ref = \@seq_array;
my $aln = $factory->align($seq_array_ref);