Select Code to Download

use strict;
use warnings;
...
    }
} until ($result eq "END" or $result eq "end");
$| = 1;

print "Please be aware maximum length 255 characters!:\n";

use strict;
use warnings;
...
    }
} until (uc ($result) eq "END");
$| = 1;