use strict;
use warnings;

warn "Version $]";
warn "Prototype", prototype "CORE::sleep";



my $sleepcounter;

sleep 2;

BEGIN {
    my $old = \&CORE::sleep;

    *CORE::GLOBAL::sleep =  sub {
        warn  "start wrapper $_[0]";
        $sleepcounter += $_[0];
        $old->(@_);

    };
}


sleep 3;

warn "total sleep( $sleepcounter )";