opendir(DIR,"/etc")|| die "ERROR_MSG:$!\n"; foo(*DIR); sub foo{ my (*ETC) = $_[0]; while(<ETC>){ print; } } [download]
In reply to Why does only 'local' work on typeglobs and not 'my' by Anonymous Monk