Help for this page
#! /usr/bin/perl -w use strict; ... } &main;
#!/usr/bin/perl -w use strict; ... } &main;