$cgi=CGI::new();
$IE=Win32::IEAutomation->new(visible=>1, maximize=>1);
$IE->gotoURL('http://www.irctc.co.in');
$IE->getTextBox('name:','userName')->SetValue('sid123');
SendKeys("~");
$IE->getTextBox('name:','password')->SetValue('sid*123');
$IE->getButton('name:','submit')->Click();
if ($cgi->param('ticketType') eq 'iticket')
        {
        print "Iticket";
        
        }
else
        {
        print "None"
        }