Select Code to Download

use IO::Handle;
sysopen my $dh, "/etc/", 0 or die "unable to open dir";
open my $dh1, ">&", $dh or die "unable to dup handle";
$dh1->sync or die "dir sync failed";