WMIMain(@ARGV);

sub WMIMain(\@) {
    my $computer  = $_[0];
    my $action    = $_[1];
    my $rvalue    = $_[2];
    my $kvalue    = $_[3];
    ...