Sample code for a talk I give on Cross Platform Perl