Select Code to Download

#!/usr/bin/perl
use strict;
...
    $indent--;
    printf( "%s</ul>\n", '  ' x $indent );
}