windows command in perl

[Sayed, Irfan \(Irfan\)]

Hi all,
 
I am executing following command on windows platform in perl programme.
 
my $cmd1 = `set USERNAME`; but I am facing following error. 
 
Z:\>ccperl rec_bl.pl
'USERNAME' is not recognized as an internal or external command,
operable program or batch file.
 
Does anybody help in how to execute windows command in perl 
 
Please help.
 
Regards
Irfan.