#!/usr/local/bin/perl-w 
my $username = getlogin;
my $userpath = "C:/Users/$username/AppData/Local/Temp/Data";
print $username;
opendir (DIR, "$userpath") ||
die ("Unable to open directory");
@files=readdir(DIR);
closedir(DIR);
foreach $file (@files) {
    if (-A "$userpath/$file" > 7) {
		print ("$file\n");
		print $userpath."/".$file;
		unlink $userpath."/".$file;
		print "File deleted successfully\n";
	}
}