if($transac eq "parse_now"){

&parse_now;

}else{

##</code><code>##

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\">";

##</code><code>##

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*