#!/usr/bin/perl

     open (MOUTH) && insert ('foot');