Windows paths in perl

I can't seem to do something like
    open(OUTFILE, '>%USERPROFILE%\file.txt') or die "Can't open file.txt: $!";

Is there a way to use windows %PATH% type syntax in perl?

open(OUTFILE, ">`echo %USERPROFILE%`\\file.txt")