my $str;
open(SPE, "specification.opml");
while(<SPE>){
  $str=$str.$_;
}
print $str;