my $desc = fileno($handle);
my $name = (`lsof -Fn -a -d $desc -p $$`)[1];
$name = substr($name,1);