sub encode {
    return Dumper [@_];
}

sub decode {
    my $VAR1;
    my $string = shift;
    return eval "$string";
}