my $decompedstring = Compress::LZO::decompress($compedstring); if (! defined $decompedstring) { print "Error decompressing string!"; } else { print $decompedstring; }