while (<~/myinput/*>) { 
    # do stuff with open(FH,"<".$_ )
};