Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
sleep 5;
print "End\n";
print "</body></html>\n";
  2. or download this
    my $my_print = sub {
  print @_;
...

# call it like this
$my_print->("<html><head>....");
  3. or download this
    #!/usr/bin/perl
use strict;
...
$my_flush->();
sleep 5;
print "The rest...\n";