May be this is a more complicated way, but works with me:

    my $lcmd="pwd";
    open (INPUT,"($lcmd) 2>&1 |");
    @ltext = <INPUT>;
    close (INPUT);
    my $result=$ltext[0];
    print("Output of pwd: $result");
[download]

*Jes