my $run = 0;