Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...
    print "#" x 12, "\n";
}
__END__

0
    |---2
...
(0) getWidth 7
(0) getDepth -1
############