You can usually change endianess by calling reverse on the packed data:

    $x = unpack 's', reverse pack 's', $x;
[download]

The following should also work although it may be architecture dependent:

    $x = unpack 's', pack 'n', $x;
[download]

--
John.