Help for this page

Select Code to Download

Select or download this

    #!/usr/bin/perl -w
    use strict;
...
    3 => 'doga'
    4 => 'dogatic'
    5 => ''