#!/usr/bin/perl -w
require 'sys/syscall.ph';
$| = 1;
open(OUT, ">foo");
&CloseAllOpenFiles();
print "done with close.\n";
sleep 20;
# go look at process with lsof to see if fd still open

sub CloseAllOpenFiles {
  for my $fd (0 .. 1024) {
    my $rc = syscall(&SYS_close, $fd);
    warn "Can't sysclose $fd: $!" unless $rc == -1;
  }
}