What have you done to try to debug it? If it were me, I think the first thing I would do would be to show the command I'm about to execute.

In your code you invoke system2() like this:

    system2($cmd,\$er,\$stdouttxr,\$stderrtxr);
[download]

But in system2() you unpack the arguments like this:

    my $er = shift;
    my $cmd = shift;
    my $stdouttxr = shift;
    my $stderrtxr = shift;
[download]

Learning how to debug straightforward things, for example by confirming the things that "can't possibly be wrong", will take you a big step forward. :)