sub make_barn
        {
        my($barns_path);
        my($picture);
        my($barn_number, @barns);
        my($barn, $member);
                
        $barns_path = './barns';
        
        $barn = Archive::Zip->new();
        
        foreach $picture (@_)
                {
                $member = $barn->addFile($picture);
                $member->desiredCompressionLevel(9);
                print "Added $picture\n";
                }