In your line $- = "result"; you probably mean to use $~ (that's a dollar sign followed by the tilde character).

From perldoc perlvar:

$~ The name of the current report format for the currently selected output channel. Default is the name of the filehandle.

Since you haven't used select to change the current filehandle, it defaults to STDOUT.