sub c
{
    chdir($home);
   @files = glob("*");
   chdir($Bin);
}