It works!
http://colo.infoaddict.net/perl/smokeping.pl