for(<*.*>){
  if(unlink $_){
    print $_," deletedt\n";
  }
  else{
    print  "can't delete ",$_,"\n";
  }
}

unlink <*.*> or print "can't delete files\n";