Revision 2 (by moose, 2008/11/28 19:56:31) initial import 
#!/usr/bin/perl

use strict;
use warnings;

my $str = pack("Z*", "onetwothree");

print "str: '$str'\n";

my $ustr = unpack("Z*", "foo");

print "ustr: '$ustr'\n";

my $ints = pack("C4", 1,2,3,4);
my @ints = unpack('C@!1C', $ints);
for(@ints) { print "int: $_\n"; }