printf "%s: Age [%s], size[%d]\n", 
    $farm,
    DateCalc( "Jan 1, 1970  00:00:00 GMT",$s->mtime() ),
    $s->size();