Make negative numbers positive, shift them and make them negative again:

sub SRshift { 
    $_[0] < 0 
        ? -( -$_[0] >> $_[1] ) 
        :     $_[0] >> $_[1] 
}
[download]

Should work on any platform regardless of native integer size.