Select Code to Download

#!c:\perl\bin\perl.exe -ws
use strict;
...
print $e ? $crypt->encrypt(shift @ARGV) :
      $d ? $crypt->decrypt(shift @ARGV) :
           "Invalid mode argument (must be -e or -d)";