sub askFor {
    # ...
    die if $pressed_cancel;
    # ...
}

# ...

    eval {
        $name = askFor(title => 'Name:');
        # do stuff with $name

        $cigs = askFor(title => 'Cigarettes:');
        # do stuff with $cigs

    }