Sorry for my stupid error.But it can't work too after I change the "qw" to "m".Perl report same error.

Can you give more advice ?

thanks very much!