#!/usr/bin/env perl
$n_para=$#ARGV;

for ($np=0; $np<=$n_para; $np++)
    {        
    $value=$ARGV[$np];
    if    ($value eq "-INFILE") {$seq=$ARGV[++$np];}
    elsif ($value eq "-OUTFILE"){$aln=$ARGV[++$np];}
  }

$command="clustalw -INFILE=$seq -OUTFILE=$aln -GAPOPEN=5 >/dev/null 2>\&1";
system $command;

exit (1);
