#!/usr/bin/perl
use strict;
use Data::Show;
use File::stat;

# rm /tmp/*.txt
# rm /tmp/*.csv
# rm /tmp/*.csv.1
# rm /tmp/*.xls
# rm /tmp/*.xlsx
# rm /tmp/*.TXT
# rm /tmp/*.TXT.1
# rm /tmp/*.csv.*

my $some_dir = '/tmp';
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
my @mylist = grep { /^*(\.*)?\.(txt|csv|csv\.*|csv.*|xls|xlsx|\d+.sql)$/i && -f "$some_dir/$_" } readdir($dh);
closedir $dh;

show @mylist;
show scalar(@mylist);

foreach my $list (@mylist) {
    print "$some_dir/$list" . "\n";
    if (-e "$some_dir/$list") {
    	if($list =~ /\.sql$/){
    		my $st = stat("$some_dir/$list");
    		# print time - $st->atime . "\n";
    		if(time - $st->atime < 604800){
    			next;
    		}
    	}
    	my $cmd = "unlink $some_dir/${list}";
	print $cmd . "\n";
        system ($cmd);
    }
}

1;