P:\test>p1
perl> use IO::Socket;;
perl> print $_, UNIVERSAL::isa( pack( 'v*', $_ ), 'SCALAR' ) for 0 .. 33;;
0
1
2
[...]
30
31
32

P:\test>rem It segfaulted.