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?

You silly Windows user, try this:
perl -e "print $ENV{USERPROFILE}"