#!/usr/bin/perl -s
use Coy;
print "-- \n" if $s; # slrn doesn't add it, but mutt does
print "briac\n";
eval { enlighten };
$_ = ( split ( /-----\n/s, $@ ) )[1];
chop and print;
__END__