for (<*.*>){
    eval {
    unlink $_;
    };
    print $@ if($@);
}