Select Code to Download

 open FILE, $dir.$file or die "$!  <<<<$file>>>>";

    if ($file =~ /\.pm/){
        #do something
    }