Select Code to Download

use strict;
my $start='<?xml version="1.0" encoding="utf-8"?>
...
    print $file_handle "\t\t".'<Address>'."\n";
    close $file_handle;
}

Can't use string ("1") as a symbol ref while "strict refs" in use at D
+:\senthil\
xmlgeneration\xmltest\file.pl line 12.