Обратить порядок битов в 32-битной переменной

#!/usr/bin/perl

print "Content-type: text/html\n\n";

print $var = 6;
print"<br>";

$res = 0;
while($var != 0)
    {
    $res = ($res<<1) + ($var & 1);
    $var = $var >> 1;
    }
    
print '<hr/>';
print $res;