Monash--Bustime is a project mainly written in Perl, it's free.

Perl script to display the next Caulfield <-> Clayton shuttle bus