# -*- Perl -*-

use strict;
use warnings;

package PerlIO::via::MyHeader;
our $VERSION = '0.01';

use Carp ();

sub PUSHED { 
    my ($class,$mode)=@_;
    Carp::croak __PACKAGE__, " can be used only for writing to file."
      unless $mode =~ /w/;
    bless \(my $x), $class;
}

my %done;

sub WRITE {
    my ($obj,$buf,$fh)=@_;
    print $fh ($done{$obj}++ ? '' : <<'    HEADER'), $buf;
START_OF_FILE
      
DATEFORMAT=YYYYMMDD
DECIMALSEPARATOR=.
    HEADER
}

1;

__END__