Help for this page

Select Code to Download

Select or download this

#! perl

...
else {
    print("Sort failed: @sorted\n");
}