$a = ".";for ($i=0; $i<20;$i++){print "$a"; }print"\n|\t\t |\n|use strict;\t ......\n|\t\t |\t |\n|\t\t |\t |\n|\t\t |\t |\n"; print "|\t\t |......\n|\t\t |\t\n|\t\t |\t\n|\t\t |\t\n";for ($i=0; $i<20;$i++) { print "$a"; }