sub function {
    ...
     if ( ... ) {
        warn "Warning message!";
        print "Press ENTER";
        my $dummy = <STDIN>;
    }
    ...
}