I don't know if this will work on Windows but it should:
perl -le "use Env q[@PATH]; print for @PATH" [download]
In reply to Re: Road to a readable path by jwkrahn in thread Road to a readable path by wol