my ($fd); open($fd,"/tmp"); use Data::Dumper; print "PID: $$"; print Dumper(\$fd);