fork(1) download
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. my $i = 100000;
  5. for (my $i = 0; $i < 10; $i++) {
  6. print $i;
  7. }
  8. print "\n";
  9. print $i;
Success #stdin #stdout 0s 3564KB
stdin
Standard input is empty
stdout
0123456789
100000