my ($mode, @cmd) = @ARGV;
open F, $mode, @cmd or die ...;