if ($#ARGV + 1 < 4) { 
	print STDERR "Usage: $prog zipstream-options offset srcdir files...\n"; 
	exit 1; 
} 
 
my @options = split(/\s/, shift); 
my $offset = shift; 
my $dir = shift; 
my $charset = getCharset(); 
my $zipcontents = getExtendedLogFile(); 

my $charset = getCharset(); 
my $zipcontents = getExtendedLogFile(); 

	if ($^O eq 'MSWin32') { 
		my $retval = system("bin/zipstream", @zipArgs, @ARGV); 
		exit ($retval & 127 ? $retval : $retval >> 8); 
	} else { 
		exec "bin/zipstream", @zipArgs, @ARGV; 
		exit 1; # Only executed if exec() failed. 
	}