Promise in Perl