Select Code to Download

$data = do { local $/; <DATA> };
#do{$data = $data . $_ } while (<DATA>); #gives a uninitialized value 
+in concatenation

#!/usr/bin/perl

...
                  <td colspan="5">&nbsp;</td>
                </tr>