#!/usr/bin/perl

use CGI::Carp 'fatalsToBrowser';
use strict;
use warnings;
use CGI;
my $query = CGI->new;

print $query->header;

### next line has an error
if (my $form{'method'} eq 'encode') {
my @character_code = unpack("C*", "$form{'message'}");
print "@character_code";
}

if ($form{'method'} eq 'decode') {
my $characters = pack("C*", "$form{'message'}");
print "$characters";
}