while (defined($_ = glob(' IN '))) {
            print "Hello $_";
        }
        while (<IN>){
          print "Bye " . $_ ;
        }