use IPC::System::Simple qw( capture );
my $result = capture(
   blastall => (
      -p => 'blastx',
      -d => $baz,
      -i => $foo,
      -o => $bar,
   )
);