Help for this page

Select Code to Download


  1. or download this
    package myObj;
    use strict;
    ...
    }
    
    1;
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    my $s = myObj->new();
    my @cmd = qw( one two three );
    foreach (@cmd) { $s->$_(); }