Help for this page

Select Code to Download


  1. or download this
    print scalar <tt?>, "\n" for 1..3;
# prints tt1, tt2 and tt3
  2. or download this
    print scalar <tt?>, "\n";
print scalar <tt?>, "\n";
print scalar <tt?>, "\n";
# prints tt1, tt1, tt1
  3. or download this
    my $s = sub { return scalar <tt?>; };
print $s->(), "\n";
print $s->(), "\n";
print $s->(), "\n";
# prints tt1, tt2, tt3