my @files2zip = qw/file1.html file2.css file3.png/;
my $fileStr = join(" ",@files2zip);
my $zipfile = "files.zip";

my $output = `zip $zipfile $filesStr`;
print "Progress:\n$output\n\nYour files are in [$zipfile].";