http://battie.perl-community.de/bat/poard/thread/57#ms_352