1234567891011 #!/usr/local/bin/perluse blib;use strict;use warnings;use AFS::CM qw (getcrypt);my $crypt_flg = getcrypt;if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }else { print "Crypt Flag = $crypt_flg \n"; }
#!/usr/local/bin/perl
use
blib;
strict;
warnings;
AFS::CM
qw (getcrypt);
my
$crypt_flg
= getcrypt;
if
(
$AFS::CODE
) {
print
"AFS::CODE = $AFS::CODE\n"
; }
else
{
"Crypt Flag = $crypt_flg \n"