No, it isn't perfect. It invokes an unknown shell with unquoted arguments. That's begging for trouble.

If you want your script to play safe, fork() manually, then open /dev/null (or even better the return value of File::Spec->devnull()) as STDOUT and STDERR in the child process, then call exec() with a list of program name and arguments. In the parent process, wait() or waitpid() for the PID returned by fork().

This way, no shell is involved, and all of those nasty quoting problems are magically gone.

Of course, this requires more typing and more thinking. Alternatively, you can use one of the CPAN modules that wraps open(), fork(), exec(), waitpid(). Look at IPC::Run and IPC::Run3.

Alexander

No, it isn't perfect. It invokes an unknown shell with unquoted arguments. That's begging for trouble.

If there is a non-zero number of arguments, the following remove the need for quoting:

use IPC::Open3 qw( open3 );

{
   open(local *FR_NULL, '<', '/dev/null') or die;
   open(local *TO_NULL, '>', '/dev/null') or die;
   my $pid = open3('<&FR_NULL', '>&TO_NULL', undef,
      $command, @arguments);
   waitpid($pid, 0) or die;
}
[download]

I have a working example of IPC::Run3 included in the following node Re: Automating user input for a CLI-based program on windows. You are able to process the ouput as you need, including discarding it.

Good luck. -c