Select Code to Download

    my $error = '';
    if ( $toggle !~ /^\d+$/ or $toggle == 0 ) {
...
        $error .= "The second argument to &alternate must be an array 
+reference.";
    }
    die $error if $error;

die "Toggle not greater than 0" unless $toggle > 0;