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