# close ...

my %opened;
if($^O=~/linux/i)
{ %opened=map{ $_ => 1 }grep{ !/^\w+:\[?\w+\]?$/ }map{ readlink }glob( "/proc/*/fd/*" ); }
unlink $file if(-z $file and !$opened{$file});