Yes, source program follows.

use Acme::EyeDrops qw(sightly);
my $src = <<'GROK';
warn+(
"Britain is not worth an old shoe!",
"There are no American infidels in Baghdad!",
"We have them surrounded in their tanks!",
"I speak better English than this villain Bush!")[rand(4)],$/
GROK
$src =~ tr/\n//d;
print sightly( { Shape             => 'mss',
                 Regex             => 1,
                 Compact           => 1,
                 BorderGap         => 1,
                 BorderWidthLeft   => 3,
                 BorderWidthRight  => 3,
                 BorderWidthTop    => 2,
                 BorderWidthBottom => 8,
                 SourceString      => $src } );
[download]

The 'mss' shape is not yet in the Acme::EyeDrops distribution; I will add it to the next release.