This can be easily performed with the if module - For example:

use if ( $^O eq 'MSWin32' ), 'MyAppWin32';
use if ( $^O ne 'MSWin32' ), 'MyAppUnix';
[download]

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000011100"))'