Help for this page

Select Code to Download


  1. or download this
    use POSIX qw/strftime/;
    my $expdate = strftime('%a, %d-%b-%Y %H:%M:%S GMT+', gmtime(time + 108
    +00) );
    
  2. or download this
    foreach my $i ( 0 .. $#body ){
      print "$i) $body[$i]";
    }
    
  3. or download this
    foreach my $s ( @body ){
      print $s;
    }