@files = <$input$dir>;
foreach $file (@files)
{
if(-f $file && ($file =~ /\.DS_Store/i))
{
print "$file\n";
unlink $file;
}
}