Select Code to Download

if ( $subkey eq 1 ) {
...
...
...
}
...

elsif($new1 == /1/){

elsif($new1 == /9/){

elsif($new1 =~ /1/){

elsif($new1 eq 1){

#!/usr/bin/perl -w

...
    print "=" x 10, $/;

}

if ( $new1 == /1/ )

Use of uninitialized value in pattern match (m//) at ./try.pl line 8.