sub upd_month{
my( $t, $post)= @_; 
$post->set_text("$expire{month}");
}
sub upd_day{
my( $t, $post)= @_; 
$post->set_text("$expire{day}");
}
sub upd_year{
my( $t, $post)= @_; 
$post->set_text("$expire{year}");
}