#!/usr/bin/perl

use strict;
use warnings;

use Method::Signatures;

func foo(:$CLEANUP)
{
    print "I will".($CLEANUP?"":" not")." clean up\n";
}

foo(CLEANIP => 1);