#!/usr/bin/perl -w
use strict;


# do stuff

__DATA__
record to replace