my $login_name = lc sprintf '%.1s%.1s%02d%02d%02d',
   $firstname, $lastname, split '/', $bday;