RosettaCodeData/Task/Topic-variable/Perl/topic-variable-1.pl

3 lines
40 B
Perl

my $_ = 3;
print for $_**2, "\n", sqrt;