$ perl foo foo
$ perl foo foo.enc
$ diff foo foo.dec
$