{

my $port = $pam_cas{'Port'} || '';

return '' unless ($port ne '');

$OUT .= "port $port\n";

}