if( prompt( "Backup $path? (y/n)", 'y' ) =~ m/^y/i ) {
    print "Backup beginning...\n";
    perform_backups( @backup_dirs );
    print "Backup complete.\n";
}
else {
    print "No backups performed. Exiting.\n"
}

sub perform_backups {
    my @directories = @_;
    # Your backup code here.
}