#/usr/bin/perl
use strict;
use use IO::Compress::Zip qw(zip $ZipError);

my $tmpfiles = '/home/webfiles/tmpfiles';
open ($FH1,'>, $tmpfiles.'/file1.txt');
open ($FH2,'>, $tmpfiles.'/file2.txt');

# do stuff here to write to $FH1 and $FH2

close $FH1;
close $FH2;

zip [$tmpfiles.'/file1.txt',$tmpfiles.'file2.txt'] =>$tmpfiles.'/output.zip';

exit;


##</code><code>##


home/
      webfiles/
             tmpfiles/
                      file1.txt
                      file2.txt