use IPC::Run qw(run);
...
my @cmd = ("/bin/cpio", "-ov");
run \@cmd, '>', $tape or die "cpio: $?"