#!/usr/bin/perl -w
#!perl -w
use strict;#!Strict(kick me in the nuts thats what it is)

   sub
sub{#######
###########
#####
#####
###########
return; ###
   ###  ###
###########
###########
   }##