Re: Simple Perl Backup help

[toolic]

Another way using perldoc perlre (case-insensitive and only looks at 1st character):

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