Select Code to Download

return undef unless defined $name = askFor(title => 'Name:');
# do stuff with $name
...
# do stuff with $cigs

# ...

sub askFor {
    # ...
...
        # do stuff with $cigs

    }

sub askFor {
    # ...
...

    return unless askFor(title => 'Cigarettes:', Var => \$cigs);
    # do stuff with $cigs