#!c:\perl\bin\perl -w
# note the addition of the -w

use diagnostics;
use strict;