for(a..z){
  $alphabet .= $_;
}

if ($x ne 'biteme'){
$printy_stuff = qq(

<br>Services:<br> $FORM{'GraphicsDesign'}<br>
$FORM{'Screenprinting'}<br>
$FORM{'Digitizing'}<br>
$FORM{'Embroidery'}<br>
$FORM{'Manufacturing'}<br>


);
} else {
$printy_stuff = 'no input';

}

print <<HERE

Here's the alphabet:
$alphabet

Here's some graphics stuff if you entered anything:
$printy_stuff

HERE

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print