Select Code to Download

use strict;
use warnings;
...
    my $status = $text->index('current');
    print "$status\n";
}