Help for this page

Select Code to Download


  1. or download this
    my $out='';
for (0..1000)
...
  $out .= "$_"." bottles of beer on the wall\n";
}
print $out;
  2. or download this
    for (0..1000)
{
  print "$_"," bottles of beer on the wall\n";
}
  3. or download this
    package Print;
require Exporter;
...
  print $sout;
}
1;
  4. or download this
    use Print qw (Print);
for (0..1000)
{
  Print "$_"," bottles of beer on the wall\n";
}