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