#!/usr/bin/perl

use strict;
use warnings;
use lib ".";
use failingFormat qw (&printFormat);

printFormat ("TEST", "Testing to print the TEST format.");

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Exporter;

my $PKG        = "failingFormat";
our $VERSION   = "0.0.01";
our @ISA       = qw (Exporter);
our @EXPORT_OK = qw (
                    &printFormat
                    );

my $text2print;

sub printFormat {
    $~          = shift;
    $text2print = shift;
    write;
    $~          = "STDOUT";
}

format TEST =
    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $text2print
~~  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    $text2print
.

1;