Select Code to Download

#!/usr/bin/perl
use strict;
...
$mech->get("https://www.irctc.co.in") ;
die $mech->response->status_line unless $mech->success;
my $test = $mech->forms();

#!perl
use warnings;
...
   else {
          die $response->status_line;
 }