use strict;
use warnings;

print "Ssssshhh! Please turn your monitor first (otherwise the pyramid might not point to the correct direction).\n";

my $Ss = '*';
my $ss = 2;
my $sS = $Ss x $ss;

for (0..$ss)
{
     print "\n". $sS. $Ss. reverse $sS; $sS =~ s/\S/ /;
}