Select Code to Download

print scalar <tt?>, "\n" for 1..3;
# prints tt1, tt2 and tt3

print scalar <tt?>, "\n";
print scalar <tt?>, "\n";
print scalar <tt?>, "\n";
# prints tt1, tt1, tt1

my $s = sub { return scalar <tt?>; };
print $s->(), "\n";
print $s->(), "\n";
print $s->(), "\n";
# prints tt1, tt2, tt3