#!/usr/bin/perl -w
use strict;

use Compress::Zlib;

open my $in, "$ARGV[0]" or die "I cannot open $ARGV[0]";

local $/;
$in=<$in>;

my $cout=compress($in);

my $fout=$ARGV[0];
$fout=~s/-.*\.ocs/.ocs/;
open my $out, ">$fout";
print $out $cout;