#!/usr/bin/perl
###########################################
# homeclean -- 2005, Mike Schilli <cpan@perlmeister.com>
###########################################
# PURPOSE
###########################################
use strict;
use warnings;
use Sysadm::Install qw(:all);
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init($DEBUG);

cd "$ENV{HOME}";

my @files = grep { -f } <*>;

for my $file (@files) {
    my $delete = ask "$file [y]/n>", "y";
    if($delete eq "y") {
        #INFO "Deleting $file";
        rmf $file;
    } else {
        INFO "Skipping $file";
    }
}

my  $VERSION    = "0.01";
our $CVSVERSION = '$Revision: 1.1 $';

__END__

=head1 NAME

    homeclean - Clean up your home directory

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    homeclean

=head1 DESCRIPTION

C<homeclean> goes through the user's home directory, finds plain
files, prompts of each and everyone it finds, and deletes them
if the user confirms.

=head1 EXAMPLES

  $ homeclean

=head1 LEGALESE

Copyright 2005 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2005, Mike Schilli <cpan@perlmeister.com>