#! /usr/bin/perl
#use Cwd;
#my $dir = getcwd;
#my $word_to_delete = "cache";
#unlink (glob("$dir/*$word_to_delete*")) or warn "can't delete files: $!"; 

unlink </tmp/x/*>;