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