Select Code to Download

$D = new DATASTORE 'dir', 'filename';
while($_ = $D->getline) {
  [...]
}

package DATASTORE;
use parent 'IO::File';
...
    $self = $class->SUPER::new($filename, 'r');
    return $self if defined $self;
}