my $dev;
while (1) {
***** problem!! local scoped $dev.
   my $dev = (stat $path)[0];
}