Perhaps test to see if $toUnzip already exists before you extract? Or if $out_dir does? I would expect a more explicit error message in either case, but I am not familiar with File::Spec.
But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)