#!/usr/bin/perl
use warnings;
use strict;
use Compress::LZW;
my $input;
while (<>) {
$input .= $_;
}
if ($0 =~ /decomp/) {
print decompress($input);
} else {
print compress($input);
};
#!/usr/bin/perl
use warnings;
use strict;
use Compress::LZW;
my $input;
while (<>) {
$input .= $_;
}
if ($0 =~ /decomp/) {
print decompress($input);
} else {
print compress($input);
};