Select Code to Download

#!/usr/bin/perl
        print qq|<?xml version="1.0"?>|;
...
        print $save;
    }
}

__DATA__
[DATA]
...
another entry here
[STORY]
another story