if($transac eq "parse_now"){

&parse_now;

}else{
[download]

Do NOT use &subroutine; unless you really do know what it does and really do need that behaviour! You don't and you don't. If you want to call a subroutine with no parameters use subroutine(); or just subroutine;. The & has a very special meaning there.

print "
       <table border=\"1\" width=\"600\" cellspacing=\"0\" cellpadding
+=\"0\">
        <tr><form name=\"xmlform\" action=\"get_node.pl\" method=\"GET
+\">
            <input type=\"hidden\" name=\"transac\" value=\"parse_now\
+">
            <td>Check  Policies from:&nbsp;&nbsp;&nbsp;&nbsp;</td>
            <td><div align=\"center\">
        <select name=\"get_file_from\">";
[download]

Isn't this a bit ... ugly? Things like this may be necessary in C, but definitely not in Perl. Use either the qq{} quote-like operator or heredocs:

print qq{
       <table border="1" width="600" cellspacing="0" cellpadding="0">
        <tr><form name="xmlform" action="get_node.pl" method="GET">
            <input type="hidden" name="transac" value="parse_now">
            <td>Check  Policies from:&nbsp;&nbsp;&nbsp;&nbsp;</td>
            <td><div align="center">
        <select name="get_file_from">};

#or

print <<"*END*";
       <table border="1" width="600" cellspacing="0" cellpadding="0">
        <tr><form name="xmlform" action="get_node.pl" method="GET">
            <input type="hidden" name="transac" value="parse_now">
            <td>Check  Policies from:&nbsp;&nbsp;&nbsp;&nbsp;</td>
            <td><div align="center">
        <select name="get_file_from">
*END*
[download]