use warnings;
use strict;
use File::Find qw(find);

die "No directory is specified" unless defined $ARGV[0];

my $dir = $ARGV[0];

find( \&unwanted, $dir );

sub unwanted {
    if (/^\.{1,}/) { return }
    else {
        print "Do you want to delete ", $_, $/;
        chomp( my $ans = <STDIN> );
        unlink $_ if $ans =~ /\by\b/;
    }
}