Acme::ButFirst 

use Acme::ButFirst;

# Print a greeting, but first find caffiene.

{
    print "Good morning!\n";
} but first {
    print "I need a coffee\n";
}