#!/usr/bin/perl

use strict;
use warnings;
use lib '.';
use PerlIO::via::MyHeader;

open my $fh1, '>:via(MyHeader)', "test1" or
  die "Can't open 'test1': $!\n";
open my $fh2, '>:via(MyHeader)', "test2" or
  die "Can't open 'test2': $!\n";

print $fh1 "foo\n";
print $fh1 "bar\n";
print $fh2 "foo\n";
print $fh2 "bar\n";

__END__