Compromises

• XS
  
• Inline
  

    #!/usr/local/bin/perl -w
    use strict;
    
    printf "$_:\t%08X\t%08X\n", rot32 (0xdead, $_), rot32 (0xbeef, -$_)
      foreach (0..31);
    
    use Inline C => <<'EOC';
    
    unsigned rot32 (unsigned val, int by) {
      if (by >= 0)
        return (val >> by) | (val << (32 - by));
      return (val << -by) | (val >> (32 + by));
    }
    EOC
    __END__

    0:      0000DEAD        0000BEEF
    1:      80006F56        00017DDE
    2:      400037AB        0002FBBC
    3:      A0001BD5        0005F778
    4:      D0000DEA        000BEEF0
    ...

• Compile your own perl?
  
• Different perl version?