A solution that doesn't involve calling the shell if you don't already:

use IPC::Open3 qw( open3 );

{
    open(local *NUL, '>', 'NUL') or die;
    my $pid = open3('<&STDIN', '>&NUL', '>&NUL', $command);
    waitpid($pid, 0);
}
[download]