#!perl
use warnings;
use diagnostics;
#use LWP::UserAgent;
use LWP::Simple;
use Crypt::SSLeay;
print "Content-type: text/html\n\n"; #<-- for viewing in browser
# Create a user agent object
  my $ua = LWP::UserAgent->new;
  $ua->proxy(['http', 'ftp'], 'my_proxy:port');

  #my $response = $ua->get('http://www.tradeindia.com/Seller/Agriculture/Cashews/');
  my $response = $ua->get('https://www.irctc.co.in');
  	##':content_file' => $out,);

  
   if ($response->is_success) {
   print "\n i am in finally";
   }
   else {
          die $response->status_line;
 }