Help on reading esc sequence

Hello,
Actually i m running a process using perl script.so i want to do that if i
press ESC from the keyboard it will come out of the loop n comes out of the
function.I am trying to read the esc character using "\e"but it is not
responding.I have even tried with hex (1B) value of esc charcter but still
it was not respoding .
Here is code snippet:

#!/C:/Perl/bin -w
 my $var1;

$var1 = <STDIN>;
if($var1 eq '\e')
{
  print "Hello \n";
}

else
{
  print "World \n";
}


-- 
Amrita Roy
Rebaca Technology Pvt Ltd.
Sector 5, Saltlake,
Kolkata
Email : [email protected]