open my $handle, \$scalar;