c:\@Work\Perl>perl -wMstrict -le
"my $path = 'c:/@Work/DMD2/learn';
 ;;
 chdir $path;
 print for grep -d, glob 'w*';
"
wc
weather_report
writef_format