Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. My variable is initialized each time
sub incrementcount {
    my $count;
    return ++$count;
}
print incrementcount . "\n";
print incrementcount . "\n";
print incrementcount . "\n";
print incrementcount . "\n";