DB<151> while ( my ($path,$handle) = each %handle ) {
           print <$handle>;
           }

This is File /tmp/path