Select Code to Download

    #!/usr/bin/perl -wl

    use strict;
...
        return $next;
    }

    sub prev_power2 {
        return 2 ** int log($_[0]) / log 2;
    }