Depends on how much security is required. Please search this site and the Internet for various implementations.

Here is a simple (but insecure) one - replace both your encrypt and decrypt functions with this:

sub rot13 {
    my $text = shift;
    $text = tr/A-Za-z/N-ZA-Mn-za-m/;
    return $text;
}
[download]