001: #!/usr/local/bin/perl -w # force taint checks, and print warnings