sub ad_d {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
if (($sec >= 0)&&($sec < 10)){
$ad = "さゆり/あゆみ\n";
}elsif (($sec >= 10)&&($sec < 20)){
$ad = "由美香/桜子\n";
}elsif (($sec >= 20)&&($sec < 30)){
$ad = "ひとみ/ななこ\n";
}elsif (($sec >= 30)&&($sec < 40)){
$ad = "雅子/美由紀\n";
}elsif (($sec >= 40)&&($sec < 50)){
$ad = "ゆかり/あやか\n";
}else{
$ad = "美貴/奈津子\n";
}
}
1;