foreach (@file{
`rm-rf $_`
}
print "はにゃ〜ん"