Hey folks.

The following is a commentary on what happens to many artists who have a child. It has happened many times where a very talented artist will produce a work inspired by the birth of their child.

In most of these cases, inspired work tends to be very flat and have no depth. I am mainly referring to musical artists. 

#!/usr/bin/perl -w

## make coding strict
  use strict;

## variable to hold message string
  my( $message );

## set $message
  $message = "My wife and I had a baby boy.  He is great and we love h
+im.";

## write $message
  write STDOUT;

## STDOUT format
format STDOUT =
  ^<<<<<<<<<<<<<<<< ~~
  $message

.

__END__

[download]

- FrankG

Replies are listed 'Best First'.
Re: Inspired Work
by Mr. Muskrat (Canon) on Jul 02, 2003 at 20:41 UTC 
    package Muskrat;
sub new {
  my $self = shift;
  return bless(\$self, $self);
}

sub AUTOLOAD {
  my $do = $AUTOLOAD;
  return if $do =~ /DESTROY/;
  $do =~ s/.*:://;
  my $self = shift;
  my ($target, $reason) = @_;
  $\ = "\n";
  print qq($self $do $target for $reason);
}

package main;
my $me = Muskrat->new;
Muskrat->congratulates('FrankG','having a son!');

    [download]
[reply]
[d/l]
Re: Inspired Work
by benn (Vicar) on Jul 03, 2003 at 10:41 UTC
    You missed out the loop... 
    # tell others
while ($meet_new_person) {
  write STDOUT
}

    [download]
    :) Ben.
[reply]
[d/l]
      A couple gives birth to a child. You knitted me in my mother's womb. Conception.:A miracle. I'm sleeping alone tonight, I can no longer conceive a real child and it almost kills me but we will all give birth to a new world. At peace, finally. Salud.
[reply]

Back to Perl Poetry