exec qw(perl -w "c:\\examples\\perl\\a.pl");