use PAR; use lib 'Bam-Kapow'; #### BEGIN { use Archive::Zip; my $zip = new Archive::Zip('Bam-Kapow.par'); $zip->extractTree('', 'shazam/'); use lib 'shazam/lib'; } END { use File::Path; rmtree 'shazam/'; } #### Using Bam::Kapow version 0.01 MOTD: Message of the day: PAR rules! Got Bam::Kapow from shazam/lib/Bam/Kapow.pm #### use PAR 'extract';