my $dir = "dir/foo";
opendir(DIR, $dir);
foreach my $file ( readdir DIR ) {
    unlink "$dir/$file";
}