################################################################################ Code fragment (NOT RECOMMENDED) from Chapter 4 of "Perl Best Practices"  ####     Copyright (c) O'Reilly & Associates, 2005. All Rights Reserved.      ####  See: http://www.oreilly.com/pub/a/oreilly/ask_tim/2001/codepolicy.html  ################################################################################# Standard modules...use strict;use warnings;use IO::Prompt;use Carp;use English qw( -no_match_vars );use Data::Alias;use Readonly;my $title         = 'Perl Best Practices';my $publisher     = q{O'Reilly};my $end_of_block  = '}';my $closing_delim = q['}];my $citation      = "$title ($publisher)";