Select Code to Download

use Fcntl qw( O_APPEND O_RDONLY O_WRONLY O_RDWR O_ACCMODE );

...

open(my $fh, "$p_mode=", $fd)
   or die("...: $!");