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

##</code><code>##

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

##</code><code>##

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