Look at File::Tail. It should either do what you want or show you how. =)

--
$you = new YOU;
honk() if $you->love(perl)