time perl -e 'for (1..100000) { open($f,"<","./t7.pl"); close($f); }'

real    0m0.446s
user    0m0.229s
sys     0m0.201s