my @lines = `tail -100 $f`;