menghasilkan.pola.segitiga.siku-siku.pl

print "Masukkan tinggi segitiga: ";
my $tinggi = <STDIN>;
chomp($tinggi);

for my $i (1..$tinggi) {
    for my $j (1..$i) {
        print "* ";
    }
    print "\n";
}