#!/usr/bin/perl
use warnings;
use strict;

my $file = 'test.zip';

my $rc = system( 'unzip', $file ) or warn "$!\n";

print "$rc\n";