Select Code to Download

open F, @ARGV;

open F, scalar(@ARGV);

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

$ perl -E 'say prototype(\*CORE::open)'
*;$@