Select Code to Download

use POSIX qw/strftime/;
my $expdate = strftime('%a, %d-%b-%Y %H:%M:%S GMT+', gmtime(time + 108
+00) );

foreach my $i ( 0 .. $#body ){
  print "$i) $body[$i]";
}

foreach my $s ( @body ){
  print $s;
}