#Print  Numbers to a file
print "File name: ";
my $cr_f = <STDIN> ;
open (STDOUT, ">$cr_f");

# Start parsing the following HTML file
$p->parse_file("outpage.html");
my $get_next_text = 0;
sub start{
# Execute when start tag is encountered
    my ($tagname,$attr) = @_;
    if ($tagname eq 'td' && exists $attr->{align} && $attr->{align} eq 'right')
{
        $get_next_text = 1;
    }
    else {
        $get_next_text = 0;
    }
}
sub text {
{
    my $text = shift;
    print $text if $get_next_text;
}
}
unlink ("outpage.html");