Select Code to Download

 use strict;
 my $errorName="alarm\n";
 my $time=5;
...
    print " you can continue";
    }
}

 use strict;
 my $errorName="alarm\n";
 my $time=5;
...
            print " you can continue";
        }
}