system()

I am trying to run the following system() command. It seems as Perl is
not able to handover $POLICYNAME
to the Unix shell and that the shell gets a problem with the strings -
modify and -inactive as they contain a minus (-). Is there a way to
run the command

/usr/openv/netbackup/bin/admincmd/bpplinfo $POLICYNAME -modify -
inactive

from a Perl script ?


(..)

open(RDME, "$COMMAND |") or die "Error in: $!\n";

while (<RDME>) {


        my $POLICYNAME = $_;

        my @args = ("/usr/openv/netbackup/bin/admincmd/bpplinfo
$POLICYNAME -modify -inactive");

        system(@args);

}

close(RDME);

(..)