use strict; use MyDataFile; my @files=(); | mumble... | my $df = new MyDataFile; $df->filename('foo.blah'); $df->addField('snarf',5,20); | etc. |