#!/usr/bin/perl sub missyou () { print <