Select Code to Download

use IO::Prompt::Tiny qw/prompt/;

my $answer = prompt("Yes or no? (y/n)", "n");

if( prompt( "Backup $path? (y/n)", 'y' ) =~ m/^y/i ) {
    print "Backup beginning...\n";
...
    my @directories = @_;
    # Your backup code here.
}