if(defined (my $temp = `cmd.exe /c date /t`)) {<br>
print "TEMP = $temp\n";<br>
} else {<br>
die "Command failed: $!";<br>
}</br>