Help for this page

Select Code to Download

Select or download this

{
   my $last;
...
   }
   print $last, @list if (@list);
}