my $a=A->new();
while() {
sleep 1;
}
exit;