my $command="/usr/local/coms/command >comm.out";
system($command);

##</code><code>##

my $command="/usr/local/coms/command ";
system($command)>@array;