sub open_template
{
    my $path=shift;
    
    open(DATA, "< $path");
    my @data=<DATA>;
    close(DATA);
    
    my $data="@data";
    
    return $data;
}