if ( $input =~ /^n/i ) {
        die "Program is shutting down.\n";
    }
    elsif ( $input =~ /^y/i ) {
        print "Backup is beginning......\n";
        last;
    }