Select Code to Download

#!/usr/bin/perl -w

...
    }
    print "Autoflush is currently " . ($|?"on":"off") . ".\n";
}