sh-3.2$ ./extract.pl
Use of uninitialized value $r in numeric ne (!=) at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394.
Use of uninitialized value $r in concatenation (.) or string at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394.
=log(SCALAR(0xa5373e0)): write failed: {"fu":"0.46","input":"/home/constrain/perl/gscp/archive/attic.bz2","pid":16173,"destdir":"/home/constrain/perl/gscp/unpack","start":"Sun Sep 11 19:53:01 2011", "unpacked":{ 

Use of uninitialized value $r in numeric ne (!=) at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394.
Use of uninitialized value $r in concatenation (.) or string at /usr/local/share/perl/5.10.0/File/Unpack.pm line 394.
        (in cleanup) =log(SCALAR(0xa5373e0)): write failed: {"pid":"16173", "unpacked":{