I am trying encryption and decryption below. What is the error.

#!/usr/bin/perl
use warnings;
use Crypt::DES;


        my $key = pack("H16", "0123456789ABCDEF");
        my $cipher = new Crypt::DES $key;
    my $plaintext = "neshataf";
        my $ciphertext = $cipher->encrypt($plaintext);  # NB - 8 bytes
    $plaintext = $cipher->decrypt($ciphertext);
        print unpack("H16", $ciphertext), "\n";
    print unpack("H16", $plaintext), "\n";
[download]

After decryption the result should be "neshataf" if I understood it properly. But the result is not that. Please help.