function mirrorsrefresh { < above perl code here > }