Backward Elimination Library

Hello,

I am looking for a library or script for R to run a backward elimination 
automatically on a linear regression. Does anybody know where to find 
such a thing or has a code snipplet lying around?

Greetings,
Thomas