use Win32::IEAutomation;
$IE=Win32::IEAutomation->new(visible=>1, maximize=>1);
$IE->gotoURL('http://www.irctc.co.in');
$IE->getTextBox('name:','userName')->SetValue('sid123');
$IE->getTextBox('name:','password')->SetValue('sid*123');
$IE->getButton('name:','submit')->Click();
$IE->WaitforDone;
$month=$IE->getSelectList('name:','month')->getProperty('value');
print "$month"